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

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

主题：按照帮助“自定义格式录入”格式写的代码，还是报错