BS下如何将表单A中的附件拷贝到表单B？
因为表单B的附件图片要变化，而表单A要保留某个历史内容。
谢谢各位！
问题点数：20、回复次数：4Top
1 楼zpy_01（）回复于 2005-05-17 19:17:59 得分 0
ok，问题解决。回复就散分！Top
2 楼zclsq（花开堪折直须折，莫待无花空折枝。）回复于 2005-05-18 08:25:02 得分 15
先将附件拆离下来，然后再传到另一个表单中保存。Top
3 楼yongkyoko（小鱼吹浪花一朵）回复于 2005-05-18 08:33:16 得分 5
这么快就解决了？呵呵！Top
4 楼zpy_01（）回复于 2005-05-18 15:59:52 得分 0
Sub CopyAttPicFromAtoAttDoc(PreUnid As String ,DocA As NotesDocument,DocB As NotesDocument,AttType As Integer)
Dim TmpStr As String
Dim i As Integer
Dim AttSize As Long
Dim ObgName As String
Dim ImgSuffix(7) As String
ImgSuffix(0)=".gif"
ImgSuffix(1)=".jpeg"
ImgSuffix(2)=".jpg"
ImgSuffix(3)=".jpe"
ImgSuffix(4)=".jfif"
ImgSuffix(5)=".pjpeg"
ImgSuffix(6)=".pjp"
ImgSuffix(7)=".bmp"
'附件拆离
Dim Attachname As Variant
Dim object As Variant
Attachname=Evaluate("@Attachmentnames",DocA)
Forall x In Attachname
TmpStr=""
If x<>"" Then
For i=0 To 7
If Instr(x,ImgSuffix(i))>0 Then
Set object = DocA.GetAttachment(x)
TmpStr="c:\" & object.Source
Call object.extractfile(TmpStr)
AttSize=object.FileSize
Goto AppendAtt
End If
Next
End If
End Forall
Exit Sub
AppendAtt:
'附件附加：
If TmpStr<>"" Then
DocB.PreUnid=UserUnid
DocB.AttType=Trim(Str(AttType))
DocB.AttSize=AttSize
DocB.AttFileName=object.name
Set rtitem = DocB.CreateRichTextItem("TmpAtt")
Set object = rtitem.EmbedObject(1454, "", TmpStr)
Kill TmpStr
End If
End Sub
表单A其实还有一个父表单,这样是为了控制父表单的附件,以上内容中为过滤某个为图片类型的附件,当然表单A只允许有一个附件.表单B在外部保存.Top
相关问题
- 怎样实现当前A表单的时钟过一秒后，关闭A表单，启动B表单。启动B表单，执行完后启动C菜单？
- B/S下怎样获取另一个表单的所有域值
- b/s下，如何在表单中嵌入多个视图？
- 如何把一个表单中rtf域内容拷贝到另外一个数据库的表单的rtf域中.
- 高手：拷贝不可见表单上的ActiveX的最终界面到bmp文件中,如何办？
- 在一个表单中加一个命令按钮后实现自动拷贝上一条记录
- 新建拷贝数据库后有的设计元素丢了，像有的代理，表单没拷贝过来（请高手指点），
- 一个表单中有a,b两个按钮，如何实现点击a提交表单并跳到a.asp，而点击b只需跳转到b.asp?
- 如何更改B/S方式下系统默认的登录表单
- 一个框架有a,b两个窗口，用js实现窗口a ，提交窗口b的一个表单form1.
