Foxtable(狐表)用户栏目专家坐堂 → 组合框的相互约束控制


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

主题:组合框的相互约束控制

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


加好友 发短信
等级:幼狐 帖子:184 积分:1459 威望:0 精华:0 注册:2011/11/11 12:08:00
组合框的相互约束控制  发帖心情 Post By:2011/11/21 17:24:00 [只看该作者]

 


图片点击可在新窗口打开查看此主题相关图片如下:pic21.jpg
图片点击可在新窗口打开查看

在casestudy中类似的例子,但改变方向后,却有点无从下手。

 

若希望窗体加载后自动加载项目所有的窗体名称到窗体名称组合框中,选择某窗体名称后自动筛选出与该窗体对应的相关列表,选择某表后又自动筛选出与该表相对应的所有字段名列表,这样的一个逻辑关系应该不难吧!~~~要是写代码的话,应该不是很多的


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/21 17:34:00 [只看该作者]

大概就是这样吧,逻辑并不复杂啊:
 
 
AfterLoad事件:
 
Dim s2 As string
For Each dt As dataTable in DataTables
      s2 = s2 & "|" & dt.name
Next
e.Form.Controls("ComboBox2").ComboList = s2
 
 绑定字段的Enter事件:
 
Dim nm As string  = e.Form.Controls("ComboBox2").Name
if nm > "" then
     Dim s2 As string
     For Each dc As dataCols in DataTables(nm).DataCols
          s2 = s2 & "|" & dc.name
     Next
      e.Form.Controls("ComboBox3").ComboList = s2
end if
 

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


加好友 发短信
等级:幼狐 帖子:184 积分:1459 威望:0 精华:0 注册:2011/11/11 12:08:00
  发帖心情 Post By:2011/11/21 17:48:00 [只看该作者]

不知道我这样提出问题的方式,对学习FOXTABLE是否有帮助,方向会不会偏离,我是真的想把FOXTABLE学好!请老师指点迷津!


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


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2011/11/21 20:01:00 [只看该作者]

Dim nm As string  = e.Form.Controls("ComboBox2").Name      name不是Value?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/22 8:27:00 [只看该作者]

手误来的,看这个:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


 回到顶部