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

老师，帮处理，实例不报错，能执行，就是窗口上明细导入数据，看不到数据，要重新打开窗口才能看到，这样不友好，请帮助处理，谢谢

[此贴子已经被作者于2023/7/24 10:10:04编辑过]

怎么处理，代码怎写？

Dim nma() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim nmb() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim dh As String = Tables("订单主表").Current("单号")

For Each r As DataRow In DataTables("外来订单").Select("[选中] = true ")'

If DataTables("订单明细").Find("编号 = '" & r("编号") & "'And 单号 = '" & dh & "'") Is Nothing Then '

Dim dr As Row = Tables("订单登记副表导入窗口_订单明细").AddNew '

dr("单号") = Tables("主表").Current("单号")

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Else

MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

上面代码，加上红字代码，报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,外来订单导入窗口,Button2,Click

详细错误信息：

未将对象引用设置到对象的实例。

Dim nma() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim nmb() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim dh As String = Tables("订单主表").Current("单号")

For Each r As DataRow In DataTables("外来订单").Select("[选中] = true ")'

If DataTables("订单明细").Find("编号 = '" & r("编号") & "'And 单号 = '" & dh & "'") Is Nothing Then '

Dim dr As Row = Tables("订单登记副表导入窗口_订单明细").AddNew '

dr("单号") = Tables("订单主表").Current("单号")

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Else

MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

老师，如果红字有误，纠正 dr("单号") = Tables("订单主表").Current("单号")，没报错，但明细还是不见？

Dim nma() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim nmb() As String = {"编号", "型号", "规格", "数量", "日期"} '

For Each r As DataRow In DataTables("外来订单").Select("[选中] = true ")'

If DataTables("订单明细").Find("编号 = '" & r("编号") & "'And 单号 = '" & dh & "'") Is Nothing Then '

Dim dr As Row = Tables("订单登记副表导入窗口_订单明细").AddNew '

Dim dh As String = Tables("订单主表").Current("单号")

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Else

MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

上面代码，报错，提示红字未声明

主表新增，加下面，也没效果

Tables("订单登记副表导入窗口_订单明细").Filter = "单号 = '" & r("单号") & "'"

'明细表-新增时

Dim r As Row = Tables("订单主表").Current '

If r IsNot Nothing Then

e.DataRow("单号") = r("单号")

End If

无效

老师，您方法的代码是怎么写？

主题：明细表问题