以文本方式查看主题

-  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是开放者密码

各位前辈请多指点

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:唐人街取货管理_0405.zip