找回密码
 立即注册

QQ登录

只需一步,快速开始

deppp

论坛元老

43

主题

123

帖子

4662

积分

论坛元老

积分
4662

活字格认证

deppp
论坛元老   /  发表于:2012-11-28 11:27  /   查看:9982  /  回复:10
已经定义好了一个Spread,想把格式标题内容等等完全copy到另外一个初始状态的Spread里去,请问该如何实现?

10 个回复

倒序浏览
deppp
论坛元老   /  发表于:2012-11-28 15:03:00
沙发
呼叫DOF~~~~
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-11-28 15:20:00
板凳
回复 1楼deppp的帖子

deppp 你好

你可以将设计好的Spread样式保存为xml文件,然后在其它Spread中打开该xml文件,这样就可以实现模板的重用。
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-11-28 16:39:00
地板
啊,是想在程序中实现这样的功能。请问代码该如何写呢?
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-11-28 16:53:00
5#
回复 4楼deppp的帖子
  1.         private void 复制ToolStripMenuItem_Click(object sender, EventArgs e)
  2.         {
  3.             fpSpread1.Save("test.xml", false);
  4.             fpSpread2.Open("test.xml");

  5.             if (System.IO.File.Exists("test.xml"))
  6.             {
  7.                 System.IO.File.Delete("test.xml");
  8.             }
  9.         }
复制代码
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-11-29 09:48:00
6#
还有别的方法吗?有个fpSpread1.activesheet.clone方法不知道该怎么用。
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-11-29 10:55:00
7#
回复 6楼deppp的帖子

这篇文章中介绍了如何复制SheetView对象:
如何复制SheetView对象
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-11-29 13:26:00
8#
麻烦帮看一下这么写有什么问题。是VB.Net的代码
FpSpread2_Sheet1 = CType(FarPoint.Win.Serializer.LoadObjectXml(FpSpread1.ActiveSheet.GetType, FarPoint.Win.Serializer.GetObjectXml(FpSpread1.ActiveSheet, "FpSpread1_Sheet1"), "FpSpread1_Sheet1"), FarPoint.Win.Spread.SheetView)
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-11-29 15:59:00
9#
回复 8楼deppp的帖子

对应的VB.NET代码如下:
  1.     Public Function CopySheet(sheet As FarPoint.Win.Spread.SheetView) As FarPoint.Win.Spread.SheetView
  2.         Dim newSheet As FarPoint.Win.Spread.SheetView = Nothing
  3.         If sheet IsNot Nothing Then
  4.             newSheet = TryCast(FarPoint.Win.Serializer.LoadObjectXml(GetType(SheetView), FarPoint.Win.Serializer.GetObjectXml(sheet, "CopySheet"), "CopySheet"), SheetView)
  5.             newSheet.SheetName = "NewSheet"
  6.         End If
  7.         Return newSheet
  8.     End Function
复制代码
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-11-29 16:47:00
10#
这个方法在使用的时候会提示这个错误

QQ截图20121129164952.jpg (23.75 KB, 下载次数: 820)
回复 使用道具 举报
12下一页
您需要登录后才可以回帖 登录 | 立即注册
返回顶部