以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137180)
--  作者：lfz123
--  发布时间：2019/6/29 15:33:00
--  下拉窗口
在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编辑过]