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
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "Selec-t {表B}.单号,{表B}.制单人,料号,料名,数量,{表B}.备注,{表B}.用户ID,审核,选中,客户,日期 From ({表B} Inner JOIN {表A} ON {表A}.[单号] = {表B}.[单号]) Where 选中=true and " & Filter
Tables("表1")。DataSource = cmd.ExecuteReader()
加好友 
发短信
Post By：2023/7/24 10:12:00 [只看该作者]
