Foxtable(狐表)用户栏目专家坐堂 → 怎么把下拉控件上的月份绑定到对应的表上面


  共有1741人关注过本帖树形打印复制链接

主题:怎么把下拉控件上的月份绑定到对应的表上面

帅哥哟,离线,有人找我吗?
董小奕
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:350 威望:0 精华:0 注册:2018/3/29 18:30:00
怎么把下拉控件上的月份绑定到对应的表上面  发帖心情 Post By:2018/3/29 19:54:00 [只看该作者]

Dim m As String
Dim cmb As WinForm.ComboBox
cmb = Forms("电子学院考勤系统").Controls("考勤月份")
m = cmb.Value
'获取combobox的值
Select Case m
Case "一月"
'链接月份考勤表
'输出报表

messagebox.show("一月")'输出一月列表
Case "二月"
messagebox.show("二月")'
'输出月列表
Case "三月"
'输出月列表
Case "四月"
'输出月列表
Case "五月"
'输出月列表
Case "六月"
'输出月列表
Case "七月"
'输出月列表
Case "八月"
'输出月列表
Case "九月"
'输出月列表
Case "十月"
'输出月列表
Case "十一月"
'输出月列表
Case "十二月"
'输出月列表
Case "总表"
'输出月列表
End Select

 

 

m是下拉菜单关联的一个月份,现在要将这个月份关联到对应的表上面怎么做呢


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 19:59:00 [只看该作者]

1、你的表结构是怎样的?要怎么连接表?

 

2、输出什么样的报表?

 

3、请上传具体实例测试。


 回到顶部
帅哥哟,离线,有人找我吗?
董小奕
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:350 威望:0 精华:0 注册:2018/3/29 18:30:00
  发帖心情 Post By:2018/3/29 20:04:00 [只看该作者]

我把工程文件放到附件里了,请您帮忙看看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:电子信息工程学院考勤.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 20:22:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/0559.htm

 

Dim m As String
Dim cmb As WinForm.ComboBox
cmb = Forms("电子学院考勤系统").Controls("考勤月份")
m = cmb.Value
'获取combobox的值
Select Case m
    Case "一月"
        Tables("一月考勤").SaveExcel("d:\test.xls", "一月考勤")
        messagebox.show("一月")'输出一月列表
    Case "二月"
        messagebox.show("二月")'
        '输出月列表
    Case "三月"
        '输出月列表
    Case "四月"
        '输出月列表
    Case "五月"
        '输出月列表
    Case "六月"
        '输出月列表
    Case "七月"
        '输出月列表
    Case "八月"
        '输出月列表
    Case "九月"
        '输出月列表
    Case "十月"
        '输出月列表
    Case "十一月"
        '输出月列表
    Case "十二月"
        '输出月列表
    Case "总表"
        '输出月列表
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
董小奕
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:350 威望:0 精华:0 注册:2018/3/29 18:30:00
  发帖心情 Post By:2018/3/30 8:59:00 [只看该作者]

万分感谢

 回到顶部