怎么才可以连续输入同样的字符？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有10984人关注过本帖树形打印复制链接主题：怎么才可以连续输入同样的字符？

xongyijd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

xongyijd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2012/4/5 22:26:00 [显示全部帖子]

TextBox1不要绑定数据列

xongyijd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2012/4/5 23:07:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目2.rar

这样应该可以了

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 Row =Tables("QuHuoJiLu").AddNew()
        W("客户名称") = d.Value
Else
    Dim x As Row = Tables("QuHuoJiLu").AddNew()
    x("录入时间") = Date.now()
    x("客户名称") = User.Name
    x("取货状态") = 0
End If

1.文本框不要绑定数据列

2.取消DataRowAdding代码

[此贴子已经被作者于2012-4-5 23:31:17编辑过]

下一主题 >> << 上一主题

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

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