表单的复制新增功能怎么实现？

jhchengj

在物料新增的时候经常会用到这个功能，进行微小的改动就可以生成新物料，有复制新增的功能就方便多了，谁有这方面的实例给参考下。

kevinyaocn

这是以前我做的帖子，你参考一下吧
http://www.excelservice.cn/viewt ... 6%C6%D0%C2%D4%F6%2B

jhchengj

你的论坛验证码怎么输入？

xutie3

你说的功能我以前曾做过,这个只能使用VBA编程复制过去哦.

jhchengj

辛苦你了，找出来参考一下。

kevinyaocn

Excel服务器应用技巧（原创）复制新增表单的实现
在一些基础数据建立时，一条记录与另一条记录只是有少数字段有差别（如物料编码信息，物料清单等）,如何可以实现一条新的记录可以快速的复制新增，在excel服务器中如何实现?(附件为实例模板）

需要实现下面的效果：
打开已经存在的一条类似的记录，点击复制新增，按照已经存在的记录新增了一条记录，做一些字段的修改存档就完成了，特别是在一条记录字段比较多的情况下非常实用
我们介绍一下用vba来实现的方法：
1.打开一条比较类似的记录

2.需要调用新增表单的函数
      Sub fuxz()
Dim X As String
Dim oAdd As Object
Application.ScreenUpdating = False
Set oAdd = Application.COMAddIns("ESClient.Connect").Object
X = Sheet1.Range("b2")
‘记录的主键赋值
oAdd.newReport ("材料设置"), False
‘新增表单
ActiveSheet.Range("B2") = X
‘记录的主键赋值到新的表单中
oAdd.execQuery "提取复制信息"
‘记录的主键提取相关的信息
Range("_ESF1421") = "重命名-" & X
‘新表单中将主键的名词前加重命名以便提示
Set oAdd = Nothing
Application.ScreenUpdating = True
End Sub
3.将已经存在的记录对应的复制到新的表单中（第一种方法这里介绍用提数公式来完成，第二种方法也可以考虑一一的赋值，当对有明细表的第二种方法就比较麻烦了）
提数公式，相同的可能性比较大的做填充

提取<材料设置_主表>中满足下列条件的数据:
<数据筛选: 材料设置_主表.材料编号 = 本报表.项目主档:材料编号>
按以下方式填入<材料设置_主表>:
材料设置_主表.名称
--->(填入值)
名称
材料设置_主表.英文名称
--->(填入值)
英文名称
材料设置_主表.规格
--->(填入值)
规格
材料设置_主表.采购策略
--->(填入值)
采购策略
材料设置_主表.安全库存
--->(填入值)
安全库存
材料设置_主表.固定提前期
--->(填入值)
固定提前期
材料设置_主表.单位
--->(填入值)
单位
材料设置_主表.主仓库
--->(填入值)
主仓库
材料设置_主表.材料分类
--->(填入值)
材料分类
材料设置_主表.来源
--->(填入值)
来源
材料设置_主表.最小采购量
--->(填入值)
最小采购量
材料设置_主表.最大库存
--->(填入值)
最大库存
材料设置_主表.提前期
--->(填入值)
提前期
材料设置_主表.主供应商
--->(填入值)
主供应商
材料设置_主表.主工序
--->(填入值)
主工序
材料设置_主表.颜色
--->(填入值)
颜色
材料设置_主表.生产部门
--->(填入值)
生产部门
材料设置_主表.存货类别
--->(填入值)
存货类别
材料设置_主表.批量
--->(填入值)
批量
4.设置模板的填充的值可以修改
5.在复制的主键字段增加重命名，并设条件格式来提示（红色字体加粗），excel自身功能
6.复制新增的效果

[ 本帖最后由 kevinyaocn 于 2009-11-17 09:44 编辑 ]

chenzhr

这个excel server 本身就有，打开模板然后copy

kevinyaocn

没错，不过如果使用频繁的话，这个更好用点

jhchengj

多谢6楼的兄弟。


这是哪个版本的模板属性，我怎没这么多项目。

[ 本帖最后由 jhchengj 于 2009-11-17 12:54 编辑 ]