主题：请教一个语法问题

1、改成6楼代码；

 

2、弹出的内容发上来看看 msgbox(DataTables("零售总表").LoadFilter)

此主题相关图片如下：zr$t5m@304(7gzc3jl@tpj.png

拷贝6楼代码

 

If Forms("零售查询窗口").Controls("DateTimePicker1").value = Nothing Or Forms("零售查询窗口").Controls("DateTimePicker1").value = Nothing Then
    Dim s As List(Of String)  = DataTables("零售明细表").SQLGetValues("零售单编号","商品编号 = '" & Tables("零售查询窗口_table1").current("永久编号") & "' and 日期 = '" & Date.today & "' and 店名 = '" & vars("默认店名") & "'")
    DataTables("零售总表").LoadFilter = "[店名] = '" & vars("默认店名") & "' And [零售单编号] In ('" & String.join("','", s.toarray) & "')"
   
    msgbox(DataTables("零售总表").LoadFilter)
   
    DataTables("零售总表").Load
End If