窗口按钮做了个筛选条件
Dim Filter As String = "1=1"
With e.Form.Controls("NF")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "年份 = '" & .value & "'"
End If
End With
With e.Form.Controls("YF1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "月份 >= '" & .value & "'"
End If
End With
With e.Form.Controls("YF2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "月份 <= '" & .value & "'"
End If
End With
然后在另一个按钮代码中引用,发现条件没起作用,是在同一个窗口中。不能这样操作吗
e.Form.Controls("gtcxtj").PerformClick() '工资汇总分析
Dim bd1 As New SQLGroupTableBuilder("出勤率基础表", "出勤率")
bd1.C
bd1.Groups.AddDef("年份")
bd1.Groups.AddDef("月份")
bd1.Groups.AddDef("组别")
bd1.Totals.AddDef("小组人数")
bd1.Filter = "(" & filter & ")"
bd1.Build
[此贴子已经被作者于2022/8/4 9:29:41编辑过]