在关联表窗口用
自定义录入界面,但是除了客户ID列If
e.Selected Then
'如果选择了值
Dim tbl As
Table = Tables("窗口1_Table1")
If tbl.Current
IsNot
Nothing
Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable
IsNot
Nothing
Then
'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else
'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End
If
End
If
End
If
这段代码不起作用