主题：关联表

你好，我做了一个入库表，有一个问题

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