以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  同行多列数据刷新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124972)
--  作者：benwong2015
--  发布时间：2018/9/17 15:23:00
--  同行多列数据刷新
如表A，第一列为供应商，第二列-二十列开始为月份，现需要在列输入供应商名称之后，其它列能根据列自动计算当月的采购数据，请问如何遍历除第一列的列名，并且作为筛选条件；

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180917152259.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/9/17 15:28:00
--  

参考代码

 

For Each c As Col In Tables("表A").cols
    If c.name <> "供应商" Then
        Dim d1 As Date = new Date(c.name.SubString(1,4), c.name.SubString(5,2), 1)
        Dim d2 As Date = d1.AddMonths(1)
        Dim filter = "日期 >= #" & d1 & "# and 日期 < #" & d2 & "#"
        msgbox(filter)
    End If
Next