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编辑过]
加好友 
发短信
Post By：2025/2/18 10:30:00 [只看该作者]
