以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]有关动态列表项目代码(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10742)

--  作者:yyzlxc
--  发布时间:2011/6/21 11:19:00
--  [求助]有关动态列表项目代码(已解决)

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

[此贴子已经被作者于2011-6-21 11:32:07编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/6/21 11:22:00
--  
If e.IsFocusCell Then \'如果是焦点所在单元格
     If e.Col.Name = "单价" Then \'如果正在编辑的是产品列
              \'从日报源表提取该厂家的单价作为列表项目
              e.Col.Combolist = DataTables("日报源表").GetComboListString("单价", "[产品] = \'" & e.Row("产品") & "\' And [厂家] = ‘" & e.Row("厂家") & “’” )
      End If
End If

--  作者:yyzlxc
--  发布时间:2011/6/21 11:32:00
--  
ok,通过!谢谢狐狸爸爸!!