以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么把下拉控件上的月份绑定到对应的表上面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116717)
--  作者：董小奕
--  发布时间：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是下拉菜单关联的一个月份，现在要将这个月份关联到对应的表上面怎么做呢
--  作者：有点甜
--  发布时间：2018/3/29 19:59:00
--  

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

 

2、输出什么样的报表？

 

3、请上传具体实例测试。
--  作者：董小奕
--  发布时间：2018/3/29 20:04:00
--  

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电子信息工程学院考勤.rar
--  作者：有点甜
--  发布时间：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
--  作者：董小奕
--  发布时间：2018/3/30 8:59:00
--  
万分感谢