在项目事件MainTableChanged中，设置代码提取厂家的列表项目
\'第一段代码：
If MainTable.Name = "日报源表" Then \'如果选择的主表是日报源表
    Tables("日报源表").Cols("厂家").Combolist = DataTables("日报源表").GetComboListString("厂家")
End If

在表事件PrepareEdit中，设置代码分别提取产品和单价的列表项目
\'第二段代码
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "产品" Then \'如果正在编辑的是产品列
        \'从日报源表提取该厂家的产品作为列表项目
        e.Col.Combolist = DataTables("日报源表").GetComboListString("产品", "[厂家] = \'" & e.Row("厂家") & "\'")
    End If
End If
\'第三段代码
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "单价" Then \'如果正在编辑的是产品列
        \'从日报源表提取该厂家的单价作为列表项目
        e.Col.Combolist = DataTables("日报源表").GetComboListString("单价", "[产品] = \'" & e.Row("产品") & "\'")
    End If
End If

现在的问题是，如何修改第三段代码，做到使单价不但与产品关联，而且还与厂家关联（登录密码：123）。

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

点击浏览该文件:生产日报.table