以下是全部代码，查询按钮。
Dim filter As String
Dim begindate As String = e.Form.Controls("begindate").text
Dim enddate As String = e.Form.Controls("enddate").text
If begindate ="" Or enddate ="" Then
MessageBox.Show("作业日期不能为空!","提示")
Return
End If
filter = " workdate >= '" & begindate & "' and workdate <= '" & enddate & "' "
Dim personName As String = e.Form.Controls("personName").text
filter = filter & " And personName Like '%" & personName & "%'"
Dim groupname As String = e.Form.Controls("groupname").text
If groupname <>"" Then
filter = filter & " and groupname = '" & groupname & "'"
End If
Dim workgroupname As String = e.Form.Controls("workgroupname").text
If workgroupname <> "" Then
filter = filter & " and workgroupname = '" & workgroupname & "'"
End If
Dim projectName As String = e.Form.Controls("projectName").text
filter = filter & " and projectName like '%" & projectName & "%'"
e.Form.Controls("textbox1").text=filter
DataTables("workRecord").LoadTop = 1000000
DataTables("workRecord").LoadFilter=filter
DataTables("workrecord").LoadOrder="workdate,groupname,personname"
DataTables("workRecord").Load()
If e.Form.Controls("namegroup").Checked = True Then
Dim t As Table = Tables("workRecord")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "personName"
g.TotalOn = "workingHours"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Else
Dim t As Table = Tables("workRecord")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "workingHours"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
End If
加好友 
发短信
Post By：2025/2/20 14:20:00 [只看该作者]
