以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]使用条码枪录入信息，但录入成功后，就没办法返回到原来的文本框了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195054)
--  作者：2900819580
--  发布时间：2025/2/18 10:30:00
--  [求助]使用条码枪录入信息，但录入成功后，就没办法返回到原来的文本框了
If e.KeyCode = 13 Then
    Dim BarNo As String = e.Sender.Text
    e.Sender.Text = Nothing
    Dim tb As Table = Tables(e.Form.Name & "_TabBarNo")
    Dim dt As DataTable = tb.DataTable
    Dim cmd As New SQLCommand
    cmd.C
    Dim fr As DataRow = dt.Find("BarNo = \'" & BarNo & "\'")
    Dim NowTime As Date = Functions.Execute("GetServerDateTime")
    If fr Is Nothing Then 
        cmd.Comm andText = "Sel ect Max(Itid) From {SCBarNo} "
        Dim MaxItid As Integer = val(cmd.ExecuteScalar) + 1 
        cmd.CommandText = "Ins ert Into {SCBarNo} ([Itid],[Ddid],[Pcid],[Gxid],[Gwid],[Useid],[BarNo],[SCDate],[FilePath],[Note]) Values(?,?,?,?,?,?,?,?,?,?)" 
        cmd.Parameters.Add("@Itid", MaxItid)
        cmd.Parameters.Add("@Ddid", e.Form.Controls("TextDdid").text)
        cmd.Parameters.Add("@Pcid", e.Form.Controls("TextGWPcid").text)
        cmd.Parameters.Add("@Gxid", e.Form.Controls("TextGxid").text) \'工序ID
        cmd.Parameters.Add("@Gwid", e.Form.Controls("TextGwid").text) \'工位ID
        cmd.Parameters.Add("@Useid", e.Form.Controls("TextUseid").text) \'作业员ID
        cmd.Parameters.Add("@BarNo", BarNo)
        cmd.Parameters.Add("@SCDate", NowTime)
        cmd.Parameters.Add("@FilePath", "")
        cmd.Parameters.Add("@Note", "")
        cmd.ExecuteNonQuery
        Dim nr As Row = tb.AddNew
        nr("SCDate") = NowTime
        nr("BarNo") = BarNo
    Else 
        cmd.CommandText = "UP DATE {SCBarNo} SET SCDate = \'" & NowTime & "\' WHERE Itid = " & fr("Itid")
        cmd.ExecuteNonQuery()
        fr("SCDate") = NowTime
    End If
    tb.AutoSizeCols 
e.Sender.Select()
    e.Form.Controls("TextBarNo").Select()
End If

老师，使用条码枪录入信息，但录入成功后，就没办法返回到原来的文本框了。以上两种方法都试过不行。
[此贴子已经被作者于2025/2/18 10:30:33编辑过]
--  作者：有点蓝
--  发布时间：2025/2/18 10:35:00
--  
keydown事件？

If e.KeyCode = 13 Then
e.cancel=true
……