以文本方式查看主题 - 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 请问这个代码怎么写?
|
-- 作者:有点蓝 -- 发布时间:2021/3/27 16:28:00 -- 使用这种方式生成查询条件:http://www.foxtable.com/webhelp/topics/1058.htm |