-- 作者:long086
-- 发布时间:2020/9/16 10:53:00
-- 一个查询问题
此主题相关图片如下:1111111112222222.png
查询按钮代码
Dim filter As String Dim sts() As String = {"产品","型号规格"} For Each st As String In sts Dim var As String = e.Form.Controls(st).value If var > "" Then If filter = "" Then filter = st & " like \'%" & var & "%\'" Else filter = filter & " and " & st & " like \'%" & var & "%\' and dt.dc > 0" End If End If Next
Dim dsd As WinForm.DateTimePicker = e.Form.Controls("ksrq") Dim ded As WinForm.DateTimePicker = e.Form.Controls("jsrq") If dsd.Value IsNot Nothing Then If filter > "" Then filter = filter & " and 日期 >= #" & dsd.Value & "#" Else filter = "日期 >= #" & dsd.value & "#" End If End If If ded.Value IsNot Nothing Then If filter > "" Then filter = filter & " and 日期 <= #" & ded.Value & "#" Else filter = "日期 <= #" & ded.value & "#" End If End If \'\' DataTables("出入记录").LoadFilter = filter DataTables("出入记录").Load
请问老师怎么把 出库 列没有数据的不显示。请问代码怎么改
|