主题：关联表中使用自定义录入三

 

在关联表<配件收货.配件收货明细>使用 自定义录义三中的方法，

只可以导入输入 选中的配件名称，

 

但以下绿底的代码没。

导入的内容未在当前行，

而是会在 选中行的上方几行中。

 

这个怎么破？

 

 

如果除了客户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

配件输入 的这个自定义录用窗口，我在多个页面调用。

 

所以，我将 Tables("配件入库明细").Current("列1") = tbl.Current("列1")

 

改 Currenttables.Current("列1") = tbl.Current("列1")

 

这种方式只有没有关联表的表单才可以让绿底代码生效。

 

在关联表<配件收货.配件收货明细> 或 <配件收货明细> 均没有反应。

是不是你表名写错了？试试改成

 

e.Form.DropTable.Current("列1") = tbl.Current("列1")