| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 筛选每月第一天时空表有一行代码如何写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32533) |
| -- 作者：sxqq123 -- 发布时间：2013/5/3 17:29:00 -- 筛选每月第一天时空表有一行代码如何写 有一个表只显示当前月份数据，在每月开始第一天要有一个空白行，筛选每月第一天时空表有一行代码如何写，请教大师 |
| -- 作者：Bin -- 发布时间：2013/5/3 17:36:00 -- 不太懂你意思. 新增一行,然后把它移动到最顶可以满足你要求没? Dim r As Row = Tables("XX").AddNew r.Move(0) |
| -- 作者：sxqq123 -- 发布时间：2013/5/3 17:55:00 -- 有一个表经筛选后只显示当前月份数据，如进入6月1日时显示表是空白的，不想通过菜单增加第一行，想通过筛选实现在每月第一天时自动有一空白行，（设计的是通过点击列来打开一个窗口操作的）请教大师 |
| -- 作者：Bin -- 发布时间：2013/5/3 17:57:00 -- 你的意思是说.如果筛选出来的月份没有数据 就自动添加一行? |
| -- 作者：sxqq123 -- 发布时间：2013/5/3 17:58:00 -- .如果筛选出来的月份没有数据 就自动添加第一行? |
| -- 作者：Bin -- 发布时间：2013/5/3 18:01:00 -- 你能不能说明白一点啊,你这问得,我很纠结啊.想半天没弄明白你的意图! |
| -- 作者：sxqq123 -- 发布时间：2013/5/3 18:05:00 -- 就是你说的意思呀：如果筛选出来的月份没有数据 就自动添加一行?（只要一个空白行就可以了） |
| -- 作者：狐狸爸爸 -- 发布时间：2013/5/3 18:10:00 -- Dim y As Integer = 2011 \'指定年份 Dim m As Integer = 6 \'指定月份 Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) \'获取该月的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" if DataTables("订单").find(Filter) Is Nothing Then ‘如果这个月没有数据 Dim dr As DataRow = DataTables("订单").AddNew() dr("日期") = dt1 End if |
| -- 作者：sxqq123 -- 发布时间：2013/5/3 18:15:00 -- 谢谢 |