Foxtable(狐表)用户栏目专家坐堂 → combolist如何从后台获取值?


  共有4788人关注过本帖树形打印复制链接

主题:combolist如何从后台获取值?

帅哥哟,离线,有人找我吗?
泡泡
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2628 威望:0 精华:0 注册:2013/3/4 20:21:00
combolist如何从后台获取值?  发帖心情 Post By:2013/6/11 21:31:00 [只看该作者]

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

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

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

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

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

请问如何解决这个矛盾?

 


 回到顶部
帅哥哟,离线,有人找我吗?
傻马难骑
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:215 积分:1306 威望:0 精华:0 注册:2013/4/7 22:24:00
  发帖心情 Post By:2013/6/11 22:55:00 [只看该作者]

新增一个表存放历年日期的年份,你看如何?

 回到顶部
帅哥哟,离线,有人找我吗?
ahbzczy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:268 积分:2307 威望:0 精华:0 注册:2010/3/26 14:08:00
  发帖心情 Post By: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(
"年份"
)


 回到顶部
帅哥哟,离线,有人找我吗?
泡泡
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2628 威望:0 精华:0 注册:2013/3/4 20:21:00
  发帖心情 Post By: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(
"年份"
)

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

谢谢!


 回到顶部