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