finrow后再订单主表行结果无法找到明细表出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

扫码枪扫码后将值赋值在窗口文本框中,文本框的KeyDown事件代码,

主表上有两行,一行的生产车间为 A班,一行为 B班,想实现扫码后如果是 A班,就在主表上A班所在行的明细表中增加数据,B班类似

Dim str() As String = txt.text.split("|") '字符串转数组

Dim cj As String =str(5) '生产车间

If cj > "" Then

Dim i As Integer = tbl.FindRow("生产车间 = '" & cj & "'")

If i >= 0 Then '如果找到的话

tbl.Position = i '定位到找到的主表行

MessageBox.Show(pr("生产车间"))

Dim r As Row = Tables(e.form.name & "_ 明细").AddNew

r("产品编码") = str(0)

r("生产单号") = str(1)

r("姓名") = IIf(str(4) = "null" , Nothing , str(4)) '姓名不为空才赋值

r("师傅") = IIf(str(6) = "null" , Nothing , str(6)) '姓名不为空才赋值

End If

运行到红色那行代码就出错了,提示不存在明细表

是定位导致的吗,应该如何处理,

谢谢!

Dim r As Row = tbl.rows(i)

此主题相关图片如下：微信截图_20230223152811.png

没太懂二楼的意思,

有很多张二维码标签要一张张全部扫码完,有A班的也有B班的,扫码后从文本框中的扫码值中判断如果是A班的主表就自动切换到A班那行,然后将其他内容新增到A班的明细表中,

如果是B班,就自动切换到B班那行,然后在B班的明细表下面增加行,因为A班与B班是两张不同的单据编号,主表要根据班B自动切换到不同的行

Dim r As Row = Tables(e.form.name & "_ 明细").AddNew

改为

Dim r As Row = tbl.rows(i)

换种方式实现了,想再请教一下

If e.KeyCode = Keys.Enter Then

Dim str() As String = txt.text.split("|") '字符串转数组

If str.Length = 7 Then '必须增加条码判断

Dim cj As String = IIf(str(5) = "null" , Nothing , str(5)) '生产车间(班组)不为空才赋值

If cj > "" Then

Dim dr As DataRow = DataTables(tbl.Name).Find("生产车间 = '" & cj & "'")

If dr IsNot Nothing Then

Dim bh As String = dr("单据编号")

Dim r As Row = Tables(e.form.name & "_明细").AddNew

r("产品编码") = str(0)

r("生产单号") = str(1)

r("姓名") = IIf(str(4) = "null" , Nothing , str(4)) '姓名不为空才赋值

r("师傅") = IIf(str(6) = "null" , Nothing , str(6)) '姓名不为空才赋值

r("单据编号") = bh '重新给关联列赋值

End If

txt.text = Nothing '清空扫码值

e.Sender.Select()

End If

e.Cancel = true '如果用这句,有时扫码后不操作

End If

如果用红色的代码,每次扫码完成后焦点无法定位在文本框,每扫一次要求焦点不能离开,还要继续扫其他的

txt.text = Nothing '清空扫码值

End If

e.Sender.Select()

e.Cancel = true '如果用这句,有时扫码后不操作

End If

主题：finrow后再订单主表行结果无法找到明细表出错