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


  共有2588人关注过本帖平板打印复制链接

主题:[求助]文本框自动输入

帅哥哟,离线,有人找我吗?
江南小镇
  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

 回到顶部
总数 13 1 2 下一页