|
If e.Selected Then ' Row IsNot Nothing 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
r("客户ID") = cr("客户ID")
r("货主名称") = cr("联系人")
r("货主地址") = cr("地址")
r("货主国家") = "中国"
If e.Form.DropCol.name = "客户id" Then
e.Form.DropDownBox.Value = cr("客户id")
Else
e.Form.DropDownBox.Value = cr("联系人")
End If
End If
| 
加好友 
发短信
Post By：2018/6/25 18:16:00 [只看该作者]
