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


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

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 10:36:00 [显示全部帖子]

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

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 13:40:00 [显示全部帖子]

老师，代码写不好。

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 15:43:00 [显示全部帖子]

老师好

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

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


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/5 16:16:00 [显示全部帖子]

老师好，窗口
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:组合框赋值.rar

代码不能完全对应自动填充。“按钮名”列有好多相同的名称导致自动填充到标题列中的数据不对应。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/6 8:03:00 [显示全部帖子]

谢谢老师

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