Dim tbl As Table = Tables("窗口1_Table1") If tbl.Current IsNot Nothing Then Forms("窗口1").DropDownBox.Value = tbl.Current("客户ID") tables("XXX").Current("YYY1") = tbl.Current("YYY1") tables("XXX").Current("YYY2") = tbl.Current("YYY2") tables("XXX").Current("YYY3") = tbl.Current("YYY3") End If Forms("窗口1").DropDownBox.CloseDropDown()