主题：[求助]自定义录入界面之三（成功了看例子）

输入多列：

 

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("员工资料_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("编号")
        Tables("请假登记表").Current("aaa") = tbl.Current("aaa")

        Tables("请假登记表").Current("bbb") = tbl.Current("bbb")
        Tables("请假登记表").Current("ccc") = tbl.Current("ccc")
    End If
    e.Form.DropDownBox.CloseDropDown()
End If

呵呵，我晕死了，设置在下拉窗口的DropDownClosed事件啊，我只是在你原来的代码加了三行代码而已。