以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 怎么才可以连续输入 同样的字符? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18149) |
||||
-- 作者:jinzhengbe -- 发布时间:2012/4/4 9:52:00 -- 怎么才可以连续输入 同样的字符? 如图所示, 如果我选择连续, 则新添加的客户名自动 为文本框内的字符, 并且不能更改, 如果我不选择连续的话,则客户名称就可以更改。(因为我设定的是客户名按照当前用户自动输入。所以有的时候需要换用户连续输入数据的时候需要用)请各位高手指点。!!! 此主题相关图片如下:11.png |
||||
-- 作者:xongyijd -- 发布时间:2012/4/4 10:24:00 -- Dim q As WinForm.CheckBox = e.Form.Controls("CheckBox1") Dim d As WinForm.TextBox = e.Form.Controls("TextBox1") If q.Checked = True and d.Value <> "" Then Dim w As Table =Tables("取货记录").AddNew() W("客户") = d.Value Else 当前用户自动输入代码 End If [此贴子已经被作者于2012-4-4 10:27:58编辑过]
|
||||
-- 作者:xongyijd -- 发布时间:2012/4/4 10:27:00 --
[此贴子已经被作者于2012-4-4 10:29:26编辑过]
|
||||
-- 作者:jinzhengbe -- 发布时间:2012/4/5 3:32:00 -- 要加到什么事件里面 要加到什么事件里面? 窗口,表,还是项目的? |
||||
-- 作者:xiaoqiwei -- 发布时间:2012/4/5 4:06:00 -- 放在添加按钮的Click事件里 |
||||
-- 作者:jinzhengbe -- 发布时间:2012/4/5 16:55:00 -- 提示这个画面 此主题相关图片如下:222.png |
||||
-- 作者:狐狸爸爸 -- 发布时间:2012/4/5 17:06:00 -- Dim q As WinForm.CheckBox = e.Form.Controls("CheckBox1") Dim d As WinForm.TextBox = e.Form.Controls("TextBox1") If q.Checked = True And d.Value IsNot Nothing Then Dim r As Row = Tables("取货记录").AddNew() r("客户") = d.Value End If |
||||
-- 作者:jinzhengbe -- 发布时间:2012/4/5 17:42:00 -- 因为我设定的是客户名是自动输入当前用户名。 所以现在 当我选择CheckBox1时候,当前行的用户名可以改,到下一行的用户名又变成当前登录的用户名了。
我需要的是选择CheckBox1后,换行后也是TextBox1的内容。
小弟嘴拙,没说清楚,鉴谅!! |
||||
-- 作者:程兴刚 -- 发布时间:2012/4/5 17:57:00 -- 嘴拙不怕,提问时把文件附上,这样可以少说话、更快更准地解决实际问题! |
||||
-- 作者:jinzhengbe -- 发布时间:2012/4/5 19:35:00 -- zhengbe是开放者密码 各位前辈请多指点
|