主题：[求助]有关动态列表项目代码（已解决）

在项目事件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