主题：请教甜大师

大师：如项目请教如下

项目

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.zip

 代码

 

Dim dtb As DataTable = DataTables("表B")
Dim dta As DataTable = DataTables("表A")
dtb.DataRows.Clear

Dim filter As String = "1=1"
Dim filter2 As String = "1=1"

Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim c2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

If c1.Text > "" Then
    filter &= " and Convert(月份, 'System.Int32') >= " & c1.text
End If

If c2.Text > "" Then
    filter &= " and Convert(月份, 'System.Int32') <= " & c2.text
    filter2 &= " and Convert(月份, 'System.Int32') <= " & c2.text
End If

For Each name As String In dta.GetValues("姓名", "姓名 is not null")
    Dim ndr As DataRow = dtb.AddNew
    ndr("姓名") = name
    ndr("本期工资") = dta.Compute("sum(月工资)", filter & " and 姓名 = '" & name & "'")
    ndr("全年累计") = dta.Compute("sum(月工资)", filter2 & " and 姓名 = '" & name & "'")
Next

谢谢！精简高效，我为何写不出来？问题在哪里？

 1=1 是为了和后面 and xxx = yyy 拼凑，没有特别意义，以防止拼凑后的语法出错。