加载问题
如何将代码一和代码二,能否合并一条SQ-L语句,如何实现{表A}和{表B}合并后,按日期、制单人、UserID加载数据?
注:1.原始表有三张,分别表A}、{表B}、{Users}
2.{Users}表的字段,分别UserID、制单人、Xjry。
3.表1是窗口上的表名
代码一
Selec-t {表B}.单号,{表B}.制单人,料号,料名,数量,{表B}.备注,{表B}.用户ID,审核,选中,客户,日期 From ({表B} Inner JOIN {表A} ON {表A}.[单号] = {表B}.[单号]) Where 选中=true
代码二
Dim StartDate As Date
Dim EndDate As Date
Dim Filter As String = "制单人='" & _Username & "' and 日期 >= #" & StartDate & "# And 日期 <= #" & EndDate & "# "
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
Dim s As String
If dr2 IsNot Nothing Then
s = dr2("Xjry")
If s > "" Then
Filter = Filter & " or UserID in (" & s.Replace(",", ",") & ")"
End If
End If
DataTables("表1").LoadFilter = Filter '
DataTables("表1").Load()