共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]窗口动态项目列表出现错误提示[已解决]

1楼

sunbrain 发表于：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

出现了这样的错误，不知道如何解决，请各位帮帮忙

此主题相关图片如下：未命名.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:使用窗口中的列表项目最后一个自动输入.table

[此贴子已经被作者于2012-5-7 8:26:44编辑过]

2楼

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

3楼

sunbrain 发表于：2012/1/14 23:04:00

以下是引用mr725在2012-1-14 0:32:00的发言：

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")

谢谢，问题解决了，需要条件满足才能自动输入的

共3 条记录, 每页显示 10 条, 页签: [1]