.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
加好友 
发短信
Post By：2017/11/3 15:44:00 [显示全部帖子]
