- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于combobox的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29477)
-- 发布时间：2013/3/7 14:41:00
-- 关于combobox的问题
此主题相关图片如下：pr7pejz%y}$n2f2zgy}xwy6.jpg
我做了一个窗口查询如图:
Dim name As String = e.Form.Controls("name").Value
cmb.ComboList = DataTables("人事资料").GetComboListString("Name", "Dept = \'" & _Userdept & "\'")
-- 发布时间：2013/3/7 14:54:00
--
看不到你的图。
如果这些输入框已经绑定到列了，那么直接设置表事件即可，参考:
http://www.foxtable.com/help/topics/1458.htm
-- 发布时间：2013/3/7 15:07:00
--
能看不到不?我就是不想绑定到列啊!
-- 发布时间：2013/3/7 15:15:00
--
不想绑定也行啊，一样的道理，找出对应的行，只是一个是将值写入列，一个是将值写入控件。
例如设置ComboBox的Validating事件：
Dim dr As DataRow
dr = DataTables("产品").Find("编号 = " & "\'" & e.Sender.Value & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.Form.Controls("控件一").Value= dr("品名")
e.Form.Controls("控件二").Value= dr("型号")
e.Form.Controls("控件三").Value= dr("规格")
End If
就会根据输入的编号，找出对应的品名、型号、规格写入其他输入框中。
-- 发布时间：2013/3/7 15:16:00
--
好!我马上试一下!
-- 发布时间：2013/3/7 15:31:00
--
还是不行啊!
Dim dr As DataRow
dr = DataTables("人事资料").Find("Name = " & "\'" & e.Sender.Value & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.Form.Controls("card").Value = dr("CardNo")
End If
此主题相关图片如下：未命名.jpg
-- 发布时间：2013/3/7 15:33:00
--
Dim dr As DataRow
dr = DataTables("人事资料").Find("[Name]= \'" & e.Sender.Value & "\'" )
If dr IsNot Nothing
e.Form.Controls("card").Value = dr("CardNo")
End If
搞不定，就做个简单例子发上来。
-- 发布时间：2013/3/7 15:35:00
--
问题一样!还是会出错!我用的是SQL数据源啊!怎么做例子解决?
-- 发布时间：2013/3/7 15:39:00
--
可以了!我忘记把
ValueChanged
事件里的旧代码删除了!还问一下!为什么一定要加中括号啊?Name