在DropDownbox输入值以后就报错:
.NET Framework 版本：4.0.30319.1
Foxtable 版本：2019.6.15.1
错误所在事件：DropBox1,DropDownClosed
详细错误信息：
Object reference not set to an instance of an object.
下拉窗口的DropDownClosed
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("工程录入_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("工程名称")
Tables(e.Form.DropTable.name).Current("工程编码") = tbl.Current("工程编码")
Tables(e.Form.DropTable.name).Current("项目经理") = tbl.Current("项目经理")
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
老师,我知道是怎么回事了,逻辑关系没有正确
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("工程录入_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("工程名称")
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
Tables(e.Form.DropTable.name).Current("工程编码") = tbl.Current("工程编码")
Tables(e.Form.DropTable.name).Current("项目经理") = tbl.Current("项目经理")
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
[此贴子已经被作者于2019/6/29 15:38:42编辑过]
加好友 
发短信
Post By：2019/6/29 15:33:00 [只看该作者]
