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