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
详细错误信息:
未将对象引用设置到对象的实例。
改为
If dr3 isnot Nothing Then
之前一直是可以正常运行的,不知道为什么现在突然提示错误
要判断那个单元格的值,也要先判断行的值啊,行都不存在,哪来的单元格?行不存在说明后台数据库没有符合这个条件的数据
再说单元格的数据没有必要判断呀,这种赋值代码,单元格有值,控件就显示这个值,单元格没有值,控件也就自然清空不显示