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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载其他表数据

共有2839人关注过本帖树形打印复制链接主题：加载其他表数据

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

加载其他表数据 发帖心情

Post By：2016/5/13 16:02:00 [显示全部帖子]

师，我设计了科目表，然后设计了属于科目表的窗口。

窗口有两件控件，一个是下拉组合框控件Dropbox，一个是Table控件。

其他表分别是科目表1，科目表2。

要求：

当下拉组合框控件Dropbox的值为“企业会计制度科目”时，科目表及窗口控件table加载科目表1，

当下拉组合框控件Dropbox的值为“非营业组织会计科目”时，科目表及窗口控件table加载科目表2，

在窗口ValueChanged事件代码为：

Dim Filter As String

Dim s As String = e.Form.Controls("DropBox1").Value

Sel ect Case s

Case "企业会计制度科目"

Tables("会计科目_Table1").Fill("Sel ect * From {科目表} Where " & Filter, False)

Case "非营业组织会计科目"

Tables("会计科目_Table1").Fill("Sel ect * From {科目表1} Where " & Filter, False)

End Sel ect

运行后出现错误，如附件

请老师帮助

[此贴子已经被作者于2016/5/13 16:02:37编辑过]

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:21:00 [显示全部帖子]

试了很多代码，都不得行咯。。。

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:21:00 [显示全部帖子]

不会很谢谢老师了

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:22:00 [显示全部帖子]

发错了哦，是不过很谢谢老师了。。。。

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:24:00 [显示全部帖子]

其他高手没有这样的做过吗，有的话请指导一下吧

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:29:00 [显示全部帖子]

是不是因为科目表指定了列名称的原因啊

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2016/5/13 17:32:00 [显示全部帖子]

控件的ValueChanged事件代码为：

Dim Filter As String = "1=1"

Dim s As String = e.Form.Controls("DropBox1").Value

Sel ect Case s

Case "企业会计制度科目"

Tables("会计科目").Fill("Sel ect [_Identify],方案名称,科目编码,一级科目名称,二级科目名称,方向类别,备注, From {科目表} Where " ,"幼儿园", False)

Case "非营业组织会计科目"

Tables("会计科目").Fill("Sel ect [_Identify],方案名称,科目编码,一级科目名称,二级科目名称,方向类别,备注, From {科目表1} Where " ,"幼儿园", False)

End Sel ect

不能加载，也不提示错误。

下一主题 >> << 上一主题

主题：加载其他表数据