Foxtable(狐表)用户栏目专家坐堂 → 零件按顺序检验


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

主题:零件按顺序检验

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/7 22:33:00 [显示全部帖子]

一定要按照顺序吗?先扫第二个、再扫第一个这样的行不行?


If e.keyCode = Keys.Enter Then '自动扫码机录入编号后自动回车,启动以下代码
    e.cancel = True
    Dim tbx As WinForm.TextBox = e.Form.Controls("txtFind")
    Dim str As String = tbx.text
    Dim dr As Integer =Tables("表A").Findrow("[零件号]= '" & str &"'")
    If dr >= 0 Then
        Tables("表A").Position =dr
        Tables("表A").current("检测时间")= Date.now
        Tables("表A").current("检测结果")= True
    Else
        messagebox.show("出错")
    End If
    e.sender.Select
    e.sender.Selectall '全选
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/7 22:36:00 [显示全部帖子]

按循序就这样写

 

If e.keyCode = Keys.Enter Then '自动扫码机录入编号后自动回车,启动以下代码
    e.cancel = True
    Dim tbx As WinForm.TextBox = e.Form.Controls("txtFind")
    Dim str As String = tbx.text
    Dim dr As Integer =Tables("表A").Findrow("[零件号]= '" & str &"'")
    If dr = Tables("表A").Current.index Then
        Tables("表A").current("检测时间")= Date.now
        Tables("表A").current("检测结果")= True
    Else
        messagebox.show("出错")
    End If
    Tables("表A").Position += 1
    e.sender.Select
    e.sender.Selectall '全选
End If


 回到顶部