Foxtable(狐表)用户栏目专家坐堂 → 请教窗口点击按钮录入数据到文本框要怎么写?


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

主题:请教窗口点击按钮录入数据到文本框要怎么写?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113660 积分:578843 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/19 9:39:00 [显示全部帖子]

比如输入:
Dim txt As WinForm.TextBox = e.Form.controls("TextBox1")
txt.Text = txt.Text & "1"

删除
Dim txt As WinForm.TextBox = e.Form.controls("TextBox1")
If txt.Text > "" Then
    txt.Text = txt.Text.Remove(txt.Text.Length - 1)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113660 积分:578843 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/19 13:53:00 [显示全部帖子]

文本框有输入焦点的时候才能看到光标的。

后面加一句代码
Dim txt As WinForm.TextBox = e.Form.controls("TextBox1")
txt.Text = txt.Text & "1"
txt.WriteValue

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113660 积分:578843 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/19 13:54:00 [显示全部帖子]

绑定的情况下建议看看:http://www.foxtable.com/webhelp/topics/2436.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113660 积分:578843 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/20 15:48:00 [显示全部帖子]

按钮点击的时候判断一下,如果行锁定了就不要赋值了

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113660 积分:578843 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/20 15:57:00 [显示全部帖子]

If Tables("表A").Current.Locked Then Return
赋值的代码

 回到顶部