- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口动态项目列表出现错误提示[已解决] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15846)
-- 发布时间：2012/1/13 21:58:00
-- [求助]窗口动态项目列表出现错误提示[已解决]
根据帮助案例 “窗口动态项目列表”，我希望将颜色列自动输入
于是在combox2的selectedindexchanged事件中写下这样的代码
以下内容为程序代码:
1 Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
2 Dim dr As DataRow = cm.SelectedItem
3 If dr IsNot Nothing Then
4 e.Form.Controls("TextBox1").Value = dr("颜色")
5 End If
1 Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
2 Dim dr As DataRow = cm.SelectedItem
3 If dr IsNot Nothing Then
4 e.Form.Controls("TextBox1").Value = dr("颜色")
5 End If
出现了这样的错误，不知道如何解决，请各位帮帮忙
此主题相关图片如下：未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:使用窗口中的列表项目最后一个自动输入.table |
[此贴子已经被作者于2012-5-7 8:26:44编辑过]
-- 发布时间：2012/1/14 0:32:00
--
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim dr As DataRow
dr = DataTables("表A").Find("型号 = \'" & e.Form.Controls("ComboBox1").value & "\'and 规格 = \'" & cm.text & "\'")
If dr IsNot Nothing Then
e.Form.Controls("TextBox1").Value = dr("颜色")
End If
-- 发布时间：2012/1/14 23:04:00
--
以下是引用mr725在2012-1-14 0:32:00的发言：
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim dr As DataRow
dr = DataTables("表A").Find("型号 = \'" & e.Form.Controls("ComboBox1").value & "\'and 规格 = \'" & cm.text & "\'")
If dr IsNot Nothing Then
e.Form.Controls("TextBox1").Value = dr("颜色")
End If
谢谢，问题解决了，需要条件满足才能自动输入的