主题：一个查询问题

此主题相关图片如下：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

请问老师怎么把 出库 列没有数据的不显示。请问代码怎么改