以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于列表项目的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161708)

--  作者:hongye
--  发布时间:2021/3/27 16:12:00
--  关于列表项目的问题
Dim kh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If dtp1.Value = ""
    If dtp2.Value = ""
        kh.ComboList = DataTables("银行交易明细_Table1").GetComboListString("对方账户名","")
    Else
        kh.ComboList = DataTables("银行交易明细_Table1").GetComboListString("对方账户名","交易日期 <= \'" & dtp2.Value & "\'")
    End If
Else
    If dtp2.Value = ""
        kh.ComboList = DataTables("银行交易明细_Table1").GetComboListString("对方账户名","交易日期 >= \'" & dtp1.Value & "\'")
    Else
        kh.ComboList = DataTables("银行交易明细_Table1").GetComboListString("对方账户名","交易日期 >= \'" & dtp1.Value & "\'and 交易日期 <= \'" & dtp2.Value & "\'")
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看
请问这个代码怎么写?


--  作者:有点蓝
--  发布时间:2021/3/27 16:28:00
--  
使用这种方式生成查询条件:http://www.foxtable.com/webhelp/topics/1058.htm