Foxtable(狐表)用户栏目专家坐堂 → 如何引用其它表间参数


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

主题:如何引用其它表间参数

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/16 16:16:00 [显示全部帖子]

用GetComboListString,请参考:

http://help.foxtable.com/topics/1457.htm

 

如果搞不定,就做例子上传。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/16 16:59:00 [显示全部帖子]

1、从代码没有看出问题来,上传你的项目,写上你的代码,我帮你看看问题出在何处。

2、录入人用DateTimePicker来输入日期时间数据,这样可以选择日期时间格式。

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/16 22:06:00 [显示全部帖子]

有多少个下拉框,就设置多少个:

 

Dim dt AS DataTable = DataTables("参数")
Dim lst AS String = dt.GetComboListString("出口国家")
e.Form.Controls("ComboBox2").ComboList = lst
e.Form.Controls("ComboBox3").ComboList = lst

e.Form.Controls("ComboBox4").ComboList = lst

....

 

关于日期显示了时间的问题,4楼已经回复,用DateTimePicker控件绑定到日期列,而不是TextBox控件。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/17 8:20:00 [显示全部帖子]

Dim dt AS DataTable = DataTables("参数")
Dim lst AS String = dt.GetComboListString("出口品种")
e.Form.Controls("ComboBox2").ComboList = dt.GetComboListString("出口国家")
e.Form.Controls("ComboBox3").ComboList = lst
e.Form.Controls("ComboBox4").ComboList = lst
e.Form.Controls("ComboBox6").ComboList = lst
e.Form.Controls("ComboBox7").ComboList = lst
e.Form.Controls("ComboBox8").ComboList = lst
e.Form.Controls("ComboBox9").ComboList = lst
e.Form.Controls("ComboBox10").ComboList = lst
e.Form.Controls("ComboBox11").ComboList = lst


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/17 10:44:00 [显示全部帖子]

稍等

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/3/17 11:10:00 [显示全部帖子]

呵呵,你的代码基本没有错,但是代码中的控件名称和列名是错误的,写代码的时候,你得看一下要设置列表项目的控件的名称,而不是ComboBox3\ComboBox4\ComboBox5...这么随便列下去:

 

Dim dt AS DataTable = DataTables("参数")
Dim lst AS String = dt.GetComboListString("出口品种")
e.Form.Controls("ComboBox2").ComboList = dt.GetComboListString("出口国家")
e.Form.Controls("ComboBox6").ComboList = lst
e.Form.Controls("ComboBox7").ComboList = lst
e.Form.Controls("ComboBox8").ComboList = lst
e.Form.Controls("ComboBox9").ComboList = lst
e.Form.Controls("ComboBox14").ComboList = lst
e.Form.Controls("ComboBox15").ComboList = lst
e.Form.Controls("ComboBox16").ComboList = lst
e.Form.Controls("ComboBox17").ComboList = lst
lst = dt.GetComboListString("出口材料")
e.Form.Controls("ComboBox10").ComboList = lst
e.Form.Controls("ComboBox11").ComboList = lst
e.Form.Controls("ComboBox12").ComboList = lst
e.Form.Controls("ComboBox13").ComboList = lst
e.Form.Controls("ComboBox18").ComboList = lst
e.Form.Controls("ComboBox19").ComboList = lst
e.Form.Controls("ComboBox20").ComboList = lst
e.Form.Controls("ComboBox21").ComboList = lst


 回到顶部