主题：[求助]自定义录入界面4

要变通：

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
    End If
    Dim r As Row = Tables("订单表").Current
    r("列1") = tbl.Current("列1")
    r("列2") = tbl.Current("列3")
    r("列3") = tbl.Current("列4")
    e.Form.DropDownBox.CloseDropDown()
End If