主题：关联表

1、2、如

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进销存.table

3、参考

http://www.foxtable.com/webhelp/scr/2465.htm

1、必须输入父表数据，才能输入子表数据啊，这个是必须的啊。

2、不论是主表还是关联表，都一样设计啊。最后绑定下拉的时候，表名你要改成关联表的表名啊。

1、参考2楼的例子，给你的供应商列赋值啊。

2、afterLoad事件

Tables("采购主表.采购明细表").Cols("名称").DropForm = "窗口3"

窗口3事件代码

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("名称")
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If
If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("名称")
        e.Form.DropTable.Current("规格") = tbl.Current("规格")
        e.Form.DropTable.Current("单位") = tbl.Current("单位")
         '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