Dim dr3 As DataRow = DataTables("销售价格表").SQLfind("客户代号 = '" & Forms("打印送货单").controls("客户代号").text & "'and 型号 = '"& Tables("送货单").Current("型号") & "' And 规格 = '"& Tables("送货单").Current("规格") &"'")
MessageBox.show(1)
If dr3("标称型号") <> Nothing Then
MessageBox.show(2)
Forms("打印送货单").controls("型号").text = dr3("标称型号")
MessageBox.show(3)
Forms("打印送货单").controls("规格").text = dr3("标称规格")
End If
以上执行到标红的代码提示错误:请问是何原因?
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:窗口,打印送货单,打印,Click
详细错误信息:
未将对象引用设置到对象的实例。