以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  取消汇总筛选后,在主表的最后一行新增一行,代码如何写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26787)

--  作者:发哥
--  发布时间:2012/12/14 8:39:00
--  取消汇总筛选后,在主表的最后一行新增一行,代码如何写?

如图所示:

新增记录的按键的代码:

 

Tables("喷绘记录主表").Filter = ""
With Tables("喷绘记录主表")
    .Position = .Rows.Count - 1
End With
Tables("喷绘记录主表").AddNew()

 

不能达到要求?


图片点击可在新窗口打开查看此主题相关图片如下:21214082405.jpg
图片点击可在新窗口打开查看

--  作者:lin_hailun
--  发布时间:2012/12/14 9:00:00
--  
 退出汇总模式这样写。

Tables().ClearSubtotal
[此贴子已经被作者于2012-12-14 9:01:02编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/12/14 9:05:00
--  
你窗口中的表是副本的吧?
--  作者:发哥
--  发布时间:2012/12/14 9:14:00
--  

改成:Tables().ClearSubtotal
也是不行,只有重点菜单中的“汇总按键”,在窗口中方能显示

窗口的表不是副本。


--  作者:狐狸爸爸
--  发布时间:2012/12/14 9:15:00
--  
做个例子发上来说话
--  作者:lin_hailun
--  发布时间:2012/12/14 9:18:00
--  
 退出汇总模式以后,测试添加正常。
--  作者:狐狸爸爸
--  发布时间:2012/12/14 9:23:00
--  

这样看看:

 

Tables("喷绘记录主表").Filter = ""
Tables("喷绘记录主表").Sort = ""
Tables("喷绘记录主表").AddNew()

 


--  作者:发哥
--  发布时间:2012/12/14 10:25:00
--  

按狐爸的,OK

 

谢谢。谢谢。

[此贴子已经被作者于2012-12-14 10:25:17编辑过]