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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]代码

共有3464人关注过本帖树形打印复制链接主题：[讨论]代码

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/31 14:09:00 [显示全部帖子]

要在哪一个表用，就写到哪一个表的表事件里面去。

你关联表，一定要有销售员列啊

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/31 15:58:00 [显示全部帖子]

以下是引用风声在2014-7-31 15:52:00的发言：
老师，就是一楼的代码。

代码没有错，不行的例子发上来，说明哪个窗口哪个表

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/31 16:26:00 [显示全部帖子]

测试没有问题。

1、你的员工表，要有数据；

2、你必须在关联表输入公司名，才能查到对应员工的。

3、或者你这样写

If e.IsFocusCell Then
    If e.Col.Name = "销售员" Then '
        If e.Row.IsNull("领用部门") Then
            e.Col.Combolist = DataTables("员工").GetComboListString("姓名")
        Else
            e.Col.Combolist = DataTables("员工").GetComboListString("姓名", "[部门] = '" & e.Row("领用部门") & "'")
        End If
    End If
End If