代码不能扫描新增 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码不能扫描新增

共有1462人关注过本帖树形打印复制链接主题：代码不能扫描新增

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	代码不能扫描新增 Post By：2017/11/28 10:16:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/28 10:19:00 [只看该作者]

1、这个代码删除

DataTables("清洗包装记录").DeleteFor("毛坯编码 Is null")

2、单独点击新增按钮能否新增？

3、自己无法处理就上传实例。

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/28 10:38:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/28 10:43:00 [只看该作者]

建议先去把foxtable基础学一下吧，看视频教程

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

Dim str1 As String = e.form.controls("使用设备").Text
Dim str2 As String = e.form.controls("工序号").Text
Dim str3 As String = e.form.controls("姓名").Text
If e.keycode = keys.Enter Then
    If str1>"" AndAlso str2>"" AndAlso str3>"" Then
        e.Sender.WriteValue
        e.Form.controls("新增").performclick
        e.Sender.Text = ""
    End If
    e.cancel = True
    e.Sender.Select
End If

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

主题：代码不能扫描新增