专家坐堂-按照帮助“自定义格式录入”格式写的代码，还是报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按照帮助“自定义格式录入”格式写的代码，还是报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109070)

--  作者：yetle
--  发布时间：2017/11/3 15:44:00
--  按照帮助“自定义格式录入”格式写的代码，还是报错

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.6.12.1
错误所在事件：DropDownClosed
详细错误信息：
未将对象引用设置到对象的实例。

DropDownClosed代码如下

If e.Selected Then \'如果选择了值

Dim tbl As Table = Tables("选择工序_Table1")
If tbl.Current IsNot Nothing Then

e.Form.DropDownBox.Value = tbl.Current("工序名称")

Tables("款式库.工价表").Current("衣车种类") = tbl.Current("衣车种类")
Tables("款式库.工价表").Current("部门") = tbl.Current("部门")
Tables("款式库.工价表").Current("车缝净时间") = tbl.Current("车缝净时间")
Tables("款式库.工价表").Current("小时工资标准") = tbl.Current("小时工资标准")
Tables("款式库.工价表").Current("工价_单件") = tbl.Current("工价_单件")
Tables("款式库.工价表").Current("工价_30件") = tbl.Current("工价_30件")
Tables("款式库.工价表").Current("面料系数") = tbl.Current("面料系数")
Tables("款式库.工价表").Current("浮余率") = tbl.Current("浮余率")
Tables("款式库.工价表").Current("捆扎时间") = tbl.Current("捆扎时间")
Tables("款式库.工价表").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

--  作者：有点甜
--  发布时间：2017/11/3 17:42:00
--
If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("选择工序_Table1")
    If tbl.Current IsNot Nothing Then
        systemready = False
        e.Form.DropDownBox.Value = tbl.Current("工序名称")
        If Tables("款式库.工价表").Current IsNot Nothing Then
            Tables("款式库.工价表").Current("衣车种类") = tbl.Current("衣车种类")
            Tables("款式库.工价表").Current("部门") = tbl.Current("部门")
            Tables("款式库.工价表").Current("车缝净时间") = tbl.Current("车缝净时间")
            Tables("款式库.工价表").Current("小时工资标准") = tbl.Current("小时工资标准")
            Tables("款式库.工价表").Current("工价_单件") = tbl.Current("工价_单件")
            Tables("款式库.工价表").Current("工价_30件") = tbl.Current("工价_30件")
            Tables("款式库.工价表").Current("面料系数") = tbl.Current("面料系数")
            Tables("款式库.工价表").Current("浮余率") = tbl.Current("浮余率")
            Tables("款式库.工价表").Current("捆扎时间") = tbl.Current("捆扎时间")
            Tables("款式库.工价表").Current("备注") = tbl.Current("备注")
        End If

        If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else \'如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
        systemready = True
    End If
End If

--  作者：yetle
--  发布时间：2017/11/4 9:23:00
--
错误还是弹出，系统进入锁死状态，不会执行任何事件代码，单击菜单按钮也不会有反应
[此贴子已经被作者于2017/11/4 9:25:39编辑过]

--  作者：有点蓝
--  发布时间：2017/11/4 9:32:00
--
请上传实例测试