- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教窗口点击按钮录入数据到文本框要怎么写？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144398)
-- 发布时间：2019/12/19 2:53:00
-- 请教窗口点击按钮录入数据到文本框要怎么写？
这个是个类似“内置输入器”的窗口，点击按钮“1”在文本框输入1，点击“删除”，删除文本框的一个字符，文本框绑定了表字段。
请教这个按钮的click事件程序要怎么写？如果是删除文本框的一个字符要怎么写？
-- 发布时间：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
-- 发布时间：2019/12/19 12:44:00
--
以下是引用有点蓝在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
=============================================
蓝老师好，谢谢您的指点，输入数值和删除都可以了。
但是发生了个摸不着头脑的问题！就是我输入的数值不会更新到表格？但是用键盘输入就会更新，并且，用按钮点击输入的时候文本框是没有光标的，用键盘就有光标。如果用按钮输入完了再把鼠标点击下文本框就能更新数值了？请问要怎么解决？谢谢您！
-- 发布时间：2019/12/19 13:53:00
--
文本框有输入焦点的时候才能看到光标的。
后面加一句代码
Dim txt As WinForm.TextBox = e.Form.controls("TextBox1")
txt.Text = txt.Text & "1"
txt.WriteValue
-- 发布时间：2019/12/19 13:54:00
--
绑定的情况下建议看看：http://www.foxtable.com/webhelp/topics/2436.htm
-- 发布时间：2019/12/19 22:53:00
--
以下是引用有点蓝在2019/12/19 13:54:00的发言：
绑定的情况下建议看看：http://www.foxtable.com/webhelp/topics/2436.htm
绑定的情况下建议看看：http://www.foxtable.com/webhelp/topics/2436.htm
谢谢蓝老师！问题解决了
-- 发布时间：2019/12/20 15:28:00
--
以下是引用有点蓝在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
==========================================
蓝老师好，昨天请教了关于用按钮来输入字符的问题，今天在测试中发现了个问题：
是这样的，我要实现“输入数值之后，点确定，锁定这个行（不可编辑）”，然后我发现，行锁定了，键盘也无法输入了，但是用按钮仍然可以输入！自己思考了下，应该是按钮控件的输入不受锁定行的限制造成的，于是我找了教程类似的案例，在窗口的Afterload事件写了下面的代码
Dim txtBox As WinForm.TextBox
txtBox = e.Form.Controls("tx1") ’定义输入框
If txtBox.ReadOnly = BooleanEnum.True Then ’检测行状态
Forms("生产数量").Controls("1").Enabled=False ’返回值为真则按钮“1”禁止使用
End If
但是郁闷的是，点击“1”这个按钮仍然可以输入。请老师指点下。谢谢
-- 发布时间：2019/12/20 15:48:00
--
按钮点击的时候判断一下，如果行锁定了就不要赋值了
-- 发布时间：2019/12/20 15:52:00
--
以下是引用有点蓝在2019/12/20 15:48:00的发言：
按钮点击的时候判断一下，如果行锁定了就不要赋值了
按钮点击的时候判断一下，如果行锁定了就不要赋值了
蓝老师，代码怎么写？？
-- 发布时间：2019/12/20 15:57:00
--
If Tables("表A").Current.Locked Then Return
赋值的代码