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

大概就是这样吧，逻辑并不复杂啊：
 
 
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
 

手误来的，看这个：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar