[求助]自动列表项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动列表项目

共有2240人关注过本帖树形打印复制链接主题：[求助]自动列表项目

liuxianjie1980

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

[求助]自动列表项目 发帖心情

Post By：2015/9/13 19:20:00 [只看该作者]

有两列：“产品名称”及“规格牌号”，希望填入“产品名称”后，“规格牌号”自动列出该产品的所有牌号规格

在该表的startedit事件中写入：

Tables("合同明细表").Cols("产品名称").ComboList = DataTables("产品资料表").GetComboListString("产品名称")
If e.Table.current("产品名称") IsNot Nothing Then
e.Table.Cols("规格牌号").Combolist = DataTables("产品资料表").GetComboListString("规格牌号","产品名称= '" & e.Table.current("产品名称") & "'")
End If

该代码始终显示的是所有的规格牌号，好像没有进行筛选啊

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/13 19:49:00 [只看该作者]

PrepareEdit事件

If e.Col.Name = "规格牌号" Then
    If e.Row.isnull("产品名称") Then
        e.Table.Cols("规格牌号").Combolist = DataTables("产品资料表").GetComboListString("规格牌号"")

    Else
        e.Table.Cols("规格牌号").Combolist = DataTables("产品资料表").GetComboListString("规格牌号","产品名称= '" & e.Row("产品名称") & "'")
    End If

End If