以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  组合框的相互约束控制  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=14490)

--  作者:RandyBoy
--  发布时间:2011/11/21 17:24:00
--  组合框的相互约束控制

 


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

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

 

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


--  作者:狐狸爸爸
--  发布时间: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
--  发布时间:2011/11/21 17:48:00
--  

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


--  作者:布莱克朱
--  发布时间:2011/11/21 20:01:00
--  
Dim nm As string  = e.Form.Controls("ComboBox2").Name      name不是Value?
--  作者:狐狸爸爸
--  发布时间:2011/11/22 8:27:00
--  

手误来的,看这个:

 

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