以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  取消汇总筛选后，在主表的最后一行新增一行，代码如何写？  (http://foxtable.com/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编辑过]