- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文本框自动输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139046)
-- 发布时间：2019/8/4 12:11:00
-- [求助]文本框自动输入
老师好，下面代码不能完全对应自动填充。“按钮名”列有好多相同的名称导致自动填充到标题列中的数据不对应。
Dim cmb As WinForm.ComboBox = e.Form.Controls("按钮名ComboBox3")
Dim str = cmb.SelectedValue
msgbox(str)
Dim dr As DataRow = DataTables("窗口控件管理").Find("按扭名 = \'" & str & "\'")
If dr IsNot Nothing Then
e.Form.Controls("按钮标题TextBox4").Value= dr("标题")
e.Form.Controls("按钮标题TextBox4").WriteValue
End If
-- 发布时间：2019/8/4 21:14:00
--
用窗口名区分
Dim dr As DataRow = DataTables("窗口控件管理").Find("窗口名 = \'某某窗口\' and 按扭名 = \'" & str & "\'")
-- 发布时间：2019/8/5 7:04:00
--
老师，标出的地方怎样引用窗口名
Dim cmb As WinForm.ComboBox = e.Form.Controls("按钮名ComboBox3")
Dim str = cmb.SelectedValue
msgbox(str)
\'Dim dr As DataRow = DataTables("窗口控件管理").Find("按扭名 = \'" & str & "\'")
Dim dr As DataRow = DataTables("窗口控件管理").Find("窗口名 = \'某某窗口\' and 按扭名 = \'" & str & "\'")
If dr IsNot Nothing Then
e.Form.Controls("按钮标题TextBox4").Value= dr("标题")
e.Form.Controls("按钮标题TextBox4").WriteValue
\'e.Form.Controls("TextBox2").Value= dr("姓名")
End If
e.Form.Controls("按钮标题TextBox4").Value = Nothing
-- 发布时间：2019/8/5 8:53:00
--
Dim dr As DataRow = DataTables("窗口控件管理").Find("窗口名 = \'" & e.Form.name & "\' and 按扭名 = \'" & str & "\'")
-- 发布时间：2019/8/5 10:36:00
--
老师，代码修改后（文本框）没有填充数据。
-- 发布时间：2019/8/5 10:43:00
--
按钮是这个e.Form.name窗口的吗，如果不是自己写对窗口名
-- 发布时间：2019/8/5 13:40:00
--
老师，代码写不好。
-- 发布时间：2019/8/5 13:54:00
--
上传实例
-- 发布时间：2019/8/5 15:43:00
--
老师好
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:组合框赋值.rar |
-- 发布时间：2019/8/5 16:00:00
--
没看懂。项目怎么用？怎么测试？