Foxtable(狐表) → 用户栏目 → 专家坐堂 → 月筛选


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

主题：月筛选
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		月筛选  发帖心情 Post By：2016/11/4 18:37:00 [只看该作者]

可以筛选出本年当月到去年当月的数据吗？
点击录入把粘贴板的复制到当月行的备注列， 感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计.table


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161104183544.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（yangwenghd）月筛选  发帖心情 Post By：2016/11/4 20:24:00 [只看该作者]

筛选的代码：

Dim d As Date = Date.Today()
Dim y,m As Integer
y = d.Year
m = d.Month
Dim t As Table = Tables("窗口1_Table1")
t.Filter = "[年份] = " & y-1 & "And [月份] >= " & m & "Or [年份] = " & y & " And [月份] <= " & m
[此贴子已经被作者于2016/11/4 20:24:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/4 20:29:00 [只看该作者]

 感谢 感谢  
把粘贴板的数据粘贴到当月 能再帮帮吗 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（yangwenghd） 感谢 感谢  把粘贴板...  发帖心情 Post By：2016/11/4 20:54:00 [只看该作者]

这是在命令窗口中测试通过，若用在窗口的按钮中，稍作修改即可。

Dim t As Table = Tables("统计")
Dim d As Date = Date.Today()
Dim y,m,p As Integer
y = d.Year
m = d.Month
Dim dr As DataRow = t.DataTable.Find("[年份] = " & y & "And [月份] = " & m)
If dr IsNot Nothing Then
    p = t.FindRow(dr)
    If p > -1 Then
        If ClipBoard.ContainsText Then
            t.Rows(p)("备注") = ClipBoard.GetText()
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/4 21:07:00 [只看该作者]

感谢 可以了 你的头像好耀眼 嘿嘿 谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（yangwenghd）感谢 可以了 你的头像好耀眼 嘿嘿...  发帖心情 Post By：2016/11/4 21:12:00 [只看该作者]

以你现有的“级别”，这些都是“小菜一碟”！

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/4 21:20:00 [只看该作者]

其实我就是提问比较多，只是我学得很慢，有些记不住，麻烦你了。感谢 感谢  

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/4 21:36:00 [只看该作者]

再请教你一个问题行吗？ 就是刚才那个表里面有个复制功能，是把其他两个表统计的数据复制到对应的月份里面和把两个表的 预留价格列和预留单价列 的当月的最后一行复制到统计表对应的列，现在出了一个问题就是 没有第二个功能复当月最后一行不对，你能帮忙看看吗 感谢 感谢 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161104213533.jpg
图片点击可在新窗口打开查看
感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:统计 (1).table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/5 9:00:00 [只看该作者]

按什么步骤操作？

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/5 9:11:00 [只看该作者]

先点击统计 会统计每个月的数据 ，然后在点击复制，把每个月的统计的数据复制到统计表格，但是  支出表 保留单价列和订单表 保留价格列 不是复制统计的数据，这两列每个月是最后一行复制到统计表的支出_预留单价 和订单_预留价格。（预留单价和预留价格是流水账结果，所以要最后一行，不然数据就不真实）

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询