以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期的列表项目怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132322)
--  作者：hongyefor
--  发布时间：2019/3/19 19:34:00
--  日期的列表项目怎么写？

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表B").GetComboListString("SubString(Convert([开票日期],\'System.String\'),1,4)","","_identify")

 

请问怎样写才能有效呢？
--  作者：hongyefor
--  发布时间：2019/3/19 20:03:00
--  

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表B").SQLGetComboListString("year(开票日期)","","_Identify")

这个为什么不能加条件，比如排序
--  作者：有点蓝
--  发布时间：2019/3/19 20:10:00
--  
cmb.ComboList = DataTables("表B").SQLGetComboListString("year(开票日期)","","[_Identify]")

cmb.ComboList = DataTables("表B").SQLGetComboListString("year(开票日期)","","开票日期")
[此贴子已经被作者于2019/3/19 20:10:59编辑过]
--  作者：hongyefor
--  发布时间：2019/3/19 20:15:00
--  
ComboBox1里无法显示数值
--  作者：有点蓝
--  发布时间：2019/3/19 20:28:00
--  
是有问题。默认就是按照日期排序的，没有必要加排序了
--  作者：hongyefor
--  发布时间：2019/3/19 20:40:00
--  

但是无法加载条件啊，

DataTables("表B").SQLGetComboListString("year(开票日期)","发票代码 = \'"& cj &"\'","开票日期")

这样好像不行哦
--  作者：有点蓝
--  发布时间：2019/3/19 20:44:00
--  
DataTables("表B").SQLGetComboListString("year(开票日期)","发票代码 = \'" & cj & "\'")