我有一个 “列表项目表”做为我的项目所有需要‘列表项目’的控件的列表，如下图1；按理来说比如我在下图2中的“厂家”控件的Enter中写入以下命令、就可以读取到下图1中相对于的内容；但我现在想实现我在“列表项目表”中读取“厂家”列表时根据前面“器材类别”中录入的内容来觉得读取“列表项目表”中相对应的单元格的内容。
Dim dt As DataTable = DataTables("列表项目表")
Dim dr As DataRow
dr = dt.Find("[表名] = '" & e.Sender.BindingField .Split(".")(0) & "' And [列名] = '" & e.Sender.BindingField .Split(".")(1) & "'")
If dr IsNot Nothing Then
e.sender.ComboList = dr("列表项目")
End If
此主题相关图片如下：360截图20140707135457750.jpg
此主题相关图片如下：360截图20140707135339437.jpg
如以上两个图：现在我“器材列表”是“灭火器”、那么我就读取“列表项目表”中‘条件列’为‘灭火器’的“列表项目”列中该单元格的内容；
如果我“器材列表”是“防毒面具”、那么我就读取“列表项目表”中‘条件列’为‘防毒面具’的“列表项目”列中该单元格的内容；
加好友 
发短信
Post By：2014/7/7 14:02:00 [显示全部帖子]
