- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于窗体控件的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52606)
-- 发布时间：2014/6/19 8:50:00
-- [求助]关于窗体控件的问题
我在窗体中增加了一个ComboBox1控件，一个TextBox1，其中ComboBox1
的属性已经设置好，我想在ValueChanged事件中做到，TextBox1显示ComboBox1关联表的字段B的内容，请问如何编写代码。
-- 发布时间：2014/6/19 8:53:00
--
在ComboBox1 textChanged事件 利用FIND找到 表B内容,然后为TextBOx1赋值
思路如上,不会请上例子
-- 发布时间：2014/6/19 9:01:00
--
Dim a As WinForm.TextBox = e.Form.Controls("ComboBox1")
Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim aa As DataRow = DataTables("表A").find("字段1= \'" & a.text & "\'")
b.text =aa("字段2")
我现在是不知道如何给TextBox1 赋值。谢谢。
-- 发布时间：2014/6/19 9:02:00
--
你的代码是对的, 最好先加一个判断,否则如果AA没找到的话就回报错.
Dim a As WinForm.TextBox = e.Form.Controls("ComboBox1") Dim b As WinForm.TextBox = e.Form.Controls("TextBox1") Dim aa As DataRow = DataTables("表A").find("字段1= \'" & a.text & "\'") if aa isnot nothing then b.text =aa("字段2") end if |
-- 发布时间：2014/6/19 9:04:00
--
我也觉得是对的，但是运行出错。
-- 发布时间：2014/6/19 9:06:00
--
会是ComboBox1属性设置有错误吗？
-- 发布时间：2014/6/19 9:07:00
--
出什么错,上例子
-- 发布时间：2014/6/19 9:14:00
--
例子，请帮忙看看。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
-- 发布时间：2014/6/19 9:16:00
--
列名写错 类型搞错
-- 发布时间：2014/6/19 9:39:00
--
谢谢。