以文本方式查看主题

-  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("年份")

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

谢谢！