Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本框自动输入


  共有3792人关注过本帖树形打印复制链接

主题：[求助]文本框自动输入
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]文本框自动输入  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/4 21:14:00 [只看该作者]

用窗口名区分
Dim dr As DataRow = DataTables("窗口控件管理").Find("窗口名 = '某某窗口' and 按扭名 = '" & str & "'")

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 8:53:00 [只看该作者]

Dim dr As DataRow = DataTables("窗口控件管理").Find("窗口名 = '" & e.Form.name & "' and 按扭名 = '" & str & "'")

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 10:36:00 [只看该作者]

老师，代码修改后（文本框）没有填充数据。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 10:43:00 [只看该作者]

按钮是这个e.Form.name窗口的吗，如果不是自己写对窗口名

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 13:40:00 [只看该作者]

老师，代码写不好。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 13:54:00 [只看该作者]

上传实例

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 15:43:00 [只看该作者]

老师好

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:组合框赋值.rar
 

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 16:00:00 [只看该作者]

没看懂。项目怎么用？怎么测试？

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询