Foxtable(狐表)用户栏目专家坐堂 → 怎么才可以连续输入 同样的字符?


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

主题:怎么才可以连续输入 同样的字符?

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
怎么才可以连续输入 同样的字符?  发帖心情 Post By:2012/4/4 9:52:00 [只看该作者]

如图所示, 如果我选择连续, 则新添加的客户名自动 为文本框内的字符, 并且不能更改,

如果我不选择连续的话,则客户名称就可以更改。(因为我设定的是客户名按照当前用户自动输入。所以有的时候需要换用户连续输入数据的时候需要用)请各位高手指点。!!!


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2012/4/4 10:27:00 [只看该作者]

 

[此贴子已经被作者于2012-4-4 10:29:26编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
要加到什么事件里面  发帖心情 Post By:2012/4/5 3:32:00 [只看该作者]

要加到什么事件里面? 窗口,表,还是项目的?图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:668 积分:8561 威望:0 精华:0 注册:2011/5/5 23:55:00
  发帖心情 Post By:2012/4/5 4:06:00 [只看该作者]

放在添加按钮的Click事件里

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
  发帖心情 Post By:2012/4/5 16:55:00 [只看该作者]

提示这个画面
图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
  发帖心情 Post By:2012/4/5 17:42:00 [只看该作者]

因为我设定的是客户名是自动输入当前用户名。

所以现在 当我选择CheckBox1时候,当前行的用户名可以改,到下一行的用户名又变成当前登录的用户名了。

 

我需要的是选择CheckBox1后,换行后也是TextBox1的内容。

 

小弟嘴拙,没说清楚,鉴谅!!


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/4/5 17:57:00 [只看该作者]

嘴拙不怕,提问时把文件附上,这样可以少说话、更快更准地解决实际问题!

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
  发帖心情 Post By:2012/4/5 19:35:00 [只看该作者]

zhengbe是开放者密码

各位前辈请多指点

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


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