下代码运行时出错:无法将类型为“System.Boolean”的对象强制转换为类型“Foxtable.Row”。
请问,如何修改?谢谢
Dim dr As Row = Tables("购置申请管理").Current
If dr.Isnull("购置申请编号")=False Then
vars("IDH")=dr("购置申请编号")
' MessageBox.show(vars("IDH"))
Dim fdr As Row =Tables("设备采购管理").Filter="购置申请编号 = '" & vars("IDH") & "'"
If fdr Is Nothing
fdr = Tables("设备采购管理").AddNew
fdr("购置申请编号") = dr("购置申请编号")
End If
Else
MessageBox.show("购置申请编号为空")
End If
[此贴子已经被作者于2015/2/27 13:47:25编辑过]