一张表多条件查询

   Try
            Me.Cursor = Cursors.WaitCursor

            Dim sql As String = ""

            Dim WhereStr As String = ""

If Me.SaleOrdingNo.Text.Length > 0 Then
                WhereStr += " and fSaleOrdeNo='" & Me.SaleOrdingNo.Text.Trim & "'"
            End If
            If Me.WriteNo.Text.Length > 0 Then
                WhereStr += " and fWriteNo='" & Me.WriteNo.Text.Trim & "'"//(其中一个查询条件值为空的处理方式：即用Trim()方法)
            End If
            If Me.OrdeMode.Text.Trim <> "" Then
                WhereStr += " and fOrdeStatus = '" & Me.OrdeMode.Text & "'"
            End If
            If Me.SaleMan.Text.Trim <> "" Then
                WhereStr += " and fEmployeeID like '%" & Me.SaleMan.Text & "%'"
            End If


            If Me.OrderCustomerType.Text.Trim <> "" Then
                WhereStr += " and fCustomerType = '" & Me.OrderCustomerType.Text & "' "
            End If


            If Me.txtOrdeType.Text.Length > 0 Then


                Dim OrdeType1 As String = Me.txtOrdeType.Text


                If OrdeType1.EndsWith(",") Then
                    OrdeType1 = OrdeType1.Remove(OrdeType1.Length - 1, 1)
                End If


                Dim Str() As String = OrdeType1.Split(",")
                Dim OrdeType As String = ""


                For i As Int64 = 0 To Str.Length - 1
                    OrdeType += "'" & Str(i) & "',"
                Next
                If OrdeType.EndsWith(",") Then
                    OrdeType = OrdeType.Remove(OrdeType.Length - 1, 1)
                End If


                WhereStr += " and fGoodsType in (" & OrdeType & ")"
            End If


            If Me.OrdeShopNo.Text.Trim <> "" Then
                WhereStr += " and ShopNo like '%" & Me.OrdeShopNo.Text & "%'"
            End If


            If Me.DeliverType.Text.Trim <> "" Then
                WhereStr += " and fDeliverMode like '%" & Me.DeliverType.Text & "%'"
            End If


            If Me.StartDate.Value.ToString.Length > 0 And Me.EndDate.Value.ToString.Length <= 0 Then
                'WhereStr += " and fSaleDate"
            ElseIf Me.StartDate.Value.ToString.Length <= 0 And Me.EndDate.Value.ToString.Length >= 0 Then
                'WhereStr += " and fSaleDate"
            ElseIf Me.StartDate.Value.ToString.Length >= 0 And Me.EndDate.Value.ToString.Length >= 0 Then
                WhereStr += " and fSaleDate between '" & Format(Me.StartDate.Value, "yyyy-MM-dd") & "' and '" & Format(Me.EndDate.Value, "yyyy-MM-dd") & "'"    //时间处理，如：and fSaleDate between '2012-06-25' and '2012-06-25'
            End If
            sql = "select fSaleOrdeNo, fWriteNo, fDeliverMode, fStoreCode, fDeliverDate, fGoodsType, ……fOrdeStatus, isnull(FDSIA,0) as FDSIA, isnull(FDSIB,0) as FDSIB, isnull(FBSI,0) as FBSI, isnull(FTAmount,0)  as FTAmount, isnull(FReceipt,0) as FReceipt, isnull(FRefund,0) as FRefund, fPayMode, fRemark  from V_SaleOrde where 1=1" & WhereStr
            mDatasetA = ReturnDataset(sql)

  Me.DGV_Master.DataSource = mDatasetA.Tables(0)
            bFind = mDatasetA.Tables(0).Rows.Count > 0
            If mDatasetA.Tables(0).Rows.Count > 0 Then

               ‘（Private mDatasetA As DataSet）
                MainForm.ToolStripFirst.Enabled = False
                MainForm.ToolStripNext.Enabled = True
                MainForm.ToolStripPrivous.Enabled = False
                MainForm.ToolStripLast.Enabled = True
                Me.DGV_Master.CurrentCell = Me.DGV_Master.Rows(0).Cells(0)
            Else
                MainForm.ToolStripFirst.Enabled = False
                MainForm.ToolStripNext.Enabled = False
                MainForm.ToolStripPrivous.Enabled = False
                MainForm.ToolStripLast.Enabled = False
            End If

           If Me.DGV_Master.Rows.Count > 0 Then
                Me.DGV_MasterSum.Rows(0).Cells("fDSIA").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(fDSIA)", "")), "#0.00")
                Me.DGV_MasterSum.Rows(0).Cells("FDSIB").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(FDSIB)", "")), "#0.00")
                Me.DGV_MasterSum.Rows(0).Cells("fBSI").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(fBSI)", "")), "#0.00")
                Me.DGV_MasterSum.Rows(0).Cells("FTAmount").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(FTAmount)", "")), "#0.00")
                Me.DGV_MasterSum.Rows(0).Cells("FReceipt").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(FReceipt)", "")), "#0.00")
                Me.DGV_MasterSum.Rows(0).Cells("FRefund").Value = Format(Val(mDatasetA.Tables(0).Compute("sum(FRefund)", "")), "#0.00")
            End If

             SetToolEnable() 

             Catch ex As Exception
            ''MsgBox("BtnFind_Click:" + ex.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, Msg.CompanyName)
        Finally
            Me.Cursor = Cursors.Default
        End Try

       ''' <summary>
    ''' 主窗體上的ToolButton按鈕的Enable屬性
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub SetToolEnable()


        Dim ShopNo As String = ""
        If Not Me.DGV_Master.CurrentRow Is Nothing Then
            ShopNo = Me.DGV_Master.CurrentRow.Cells("ShopNo").Value & ""
        End If
        If Me.DGV_Master.Rows.Count > 0 Then
            If Me.DGV_Master.CurrentRow.Cells("fOrdeStatus").Value = "保存" Then
                If ShopNo = PubCompanyName Then
                    MainForm.ToolStripCheck.Enabled = True And CheckEnable = True
                    MainForm.ToolStripUnCheck.Enabled = False
                    MainForm.ToolStripComplete.Enabled = False
                    MainForm.ToolStripDelete.Enabled = True And DeleteEnable = True
                    MainForm.ToolStripEdit.Enabled = True And EditEnable = True
                Else
                    MainForm.ToolStripCheck.Enabled = False
                    MainForm.ToolStripUnCheck.Enabled = False
                    MainForm.ToolStripComplete.Enabled = False
                    MainForm.ToolStripDelete.Enabled = False
                    MainForm.ToolStripEdit.Enabled = False
                End If
                Me.BtnCancel.Enabled = False
            ElseIf Me.DGV_Master.CurrentRow.Cells("fOrdeStatus").Value = "核准" Then
                MainForm.ToolStripCheck.Enabled = False
                MainForm.ToolStripUnCheck.Enabled = True And UncheckEnable = True
                MainForm.ToolStripComplete.Enabled = True And CompleteEnable = True
                MainForm.ToolStripDelete.Enabled = False
                MainForm.ToolStripEdit.Enabled = False
                Me.BtnCancel.Enabled = True
            ElseIf Me.DGV_Master.CurrentRow.Cells("fOrdeStatus").Value = "反核准" Then
                MainForm.ToolStripCheck.Enabled = True And CheckEnable = True
                MainForm.ToolStripUnCheck.Enabled = False
                MainForm.ToolStripComplete.Enabled = False
                MainForm.ToolStripDelete.Enabled = False
                MainForm.ToolStripEdit.Enabled = True And EditEnable = True
                Me.BtnCancel.Enabled = True
            ElseIf Me.DGV_Master.CurrentRow.Cells("fOrdeStatus").Value = "結案" Then
                MainForm.ToolStripCheck.Enabled = False
                MainForm.ToolStripUnCheck.Enabled = False
                MainForm.ToolStripComplete.Enabled = False
                MainForm.ToolStripDelete.Enabled = False
                MainForm.ToolStripEdit.Enabled = False
                Me.BtnCancel.Enabled = False
            End If
            If Me.DGV_Master.CurrentRow.Index = 0 Then
                MainForm.ToolStripFirst.Enabled = False
                MainForm.ToolStripNext.Enabled = True
                MainForm.ToolStripPrivous.Enabled = False
                MainForm.ToolStripLast.Enabled = True
            ElseIf Me.DGV_Master.CurrentRow.Index = Me.DGV_Master.Rows.Count - 1 Then
                MainForm.ToolStripFirst.Enabled = True
                MainForm.ToolStripNext.Enabled = False
                MainForm.ToolStripPrivous.Enabled = True
                MainForm.ToolStripLast.Enabled = False
            Else
                MainForm.ToolStripFirst.Enabled = True
                MainForm.ToolStripNext.Enabled = True
                MainForm.ToolStripPrivous.Enabled = True
                MainForm.ToolStripLast.Enabled = True
            End If
            MainForm.ToolStripPrint.Enabled = True
        End If


    End Sub

Private Sub GetToolEnable()
        Try
            With MainForm
                .ToolStripAdd.Enabled = AddEnable
                .ToolStripEdit.Enabled = EditEnable And bFind = True
                .ToolStripDelete.Enabled = DeleteEnable And bFind = True
                .ToolStripPrint.Enabled = PrintEnable
                .ToolStripImport.Enabled = ImportEnable
                .ToolStripExport.Enabled = ExportEnable
                .ToolStripFind.Enabled = FindEnable
                .ToolStripCheck.Enabled = CheckEnable
                .ToolStripUnCheck.Enabled = UncheckEnable
                .ToolStripComplete.Enabled = CompleteEnable
                .AddToolStripMenuItem.Enabled = .ToolStripAdd.Enabled
                ……
            End With


        Catch ex As Exception
            MsgBox("GetToolEnable:" + ex.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, Msg.CompanyName)
        End Try
    End Sub