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
请问这个代码怎么写？
加好友 
发短信
Post By：2021/3/27 16:12:00 [只看该作者]
