- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 月筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92491)
-- 发布时间：2016/11/4 18:37:00
-- 月筛选
可以筛选出本年当月到去年当月的数据吗？
点击录入把粘贴板的复制到当月行的备注列， 感谢 感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计.table |
此主题相关图片如下：qq截图20161104183544.jpg
-- 发布时间：2016/11/4 20:24:00
-- 回复：（yangwenghd）月筛选
筛选的代码：
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编辑过]
-- 发布时间：2016/11/4 20:29:00
--
感谢 感谢
把粘贴板的数据粘贴到当月 能再帮帮吗 感谢 感谢
-- 发布时间：2016/11/4 20:54:00
-- 回复：（yangwenghd） 感谢 感谢 把粘贴板...
这是在命令窗口中测试通过，若用在窗口的按钮中，稍作修改即可。
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
-- 发布时间：2016/11/4 21:07:00
--
感谢 可以了 你的头像好耀眼 嘿嘿 谢谢。
-- 发布时间：2016/11/4 21:12:00
-- 回复：（yangwenghd）感谢 可以了 你的头像好耀眼 嘿嘿...
以你现有的“级别”，这些都是“小菜一碟”！
-- 发布时间：2016/11/4 21:20:00
--
其实我就是提问比较多，只是我学得很慢，有些记不住，麻烦你了。感谢 感谢
-- 发布时间：2016/11/4 21:36:00
--
再请教你一个问题行吗？ 就是刚才那个表里面有个复制功能，是把其他两个表统计的数据复制到对应的月份里面和把两个表的 预留价格列和预留单价列 的当月的最后一行复制到统计表对应的列，现在出了一个问题就是 没有第二个功能复当月最后一行不对，你能帮忙看看吗 感谢 感谢
此主题相关图片如下：qq截图20161104213533.jpg
感谢 感谢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:统计 (1).table |
-- 发布时间：2016/11/5 9:00:00
--
按什么步骤操作？
-- 发布时间：2016/11/5 9:11:00
--
先点击统计 会统计每个月的数据 ，然后在点击复制，把每个月的统计的数据复制到统计表格，但是 支出表 保留单价列和订单表 保留价格列 不是复制统计的数据，这两列每个月是最后一行复制到统计表的支出_预留单价 和订单_预留价格。（预留单价和预留价格是流水账结果，所以要最后一行，不然数据就不真实）