以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  combolist如何从后台获取值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34666)

--  作者:泡泡
--  发布时间:2013/6/11 21:31:00
--  combolist如何从后台获取值?

在窗体里有个组合框,希望点击组合框,出来历年日期的年份(1999、2000.。。。2013)

若事件写在enter里,代码当然是:e.Sender.ComboList = DataTables("出库表").GetComboListString("年份")

但从99年到13年,数据很多,准备采用限制初期加载条件,使初始载入记录数为0

但若想在组合框里能点击后,在上面代码的作用下,出现年份的下拉框(下拉显示 1999  2000.。。。。2013)

则必须先载入所有数据源才行,但都加载的话,数据量太大

请问如何解决这个矛盾?

 


--  作者:傻马难骑
--  发布时间:2013/6/11 22:55:00
--  
新增一个表存放历年日期的年份,你看如何?
--  作者:ahbzczy
--  发布时间:2013/6/12 0:38:00
--  

Dim cmd As New SQLCommand
Dim
dt As DataTable
Dim
cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 年份 From {出库表}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls(
"ComboBox1")
cmb.ComboList= dt.GetComboListString(
"年份"
)


--  作者:泡泡
--  发布时间:2013/6/12 8:02:00
--  
以下是引用ahbzczy在2013-6-12 0:38:00的发言:

Dim cmd As New SQLCommand
Dim
dt As DataTable
Dim
cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 年份 From {出库表}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls(
"ComboBox1")
cmb.ComboList= dt.GetComboListString(
"年份"
)

查了下,帮助里有的,平时没注意到

谢谢!