DropDownClosed事件If e.Selected Then
Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
Dim cr As Row = tbl.Current
Dim t As Table = e.form.DropTable
Dim r As Row = t.Current
If e.Form.DropCol.Name = "客户id" Then
r("货主名称") = cr("联系人")
r("货主地址") = cr("地址")
r("货主国家") = "中国"
e.Form.DropDownBox.Value = cr("客户ID")
Else
e.Form.DropDownBox.Value = cr("联系人")
r("货主地址") = cr("地址")
r("货主国家") = "中国"
Application.Doevents
e.Form.DropTable.FinishEditing
r("客户ID") = cr("客户ID")
End If
End If