在关联表<配件收货.配件收货明细>使用 自定义录义三中的方法,
只可以导入输入 选中的配件名称,
但以下绿底的代码没。
导入的内容未在当前行,
而是会在 选中行的上方几行中。
这个怎么破?
如果除了客户ID列,还要同时从客户表选择其它多列内容输入到订单表,可以将DropDownClosed事件代码改为:
If e.Selected Then
'如果选择了值
Dim tbl As
Table = Tables("窗口1_Table1")
If tbl.Current IsNot
Nothing
Then
e.Form.DropDownBox.Value = tbl.Current("配件名称")
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
http://www.foxtable.com/webhelp/scr/2465.htm
[此贴子已经被作者于2019/1/30 8:52:30编辑过]