以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  将文件存储到指定文件夹中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15503)

--  作者:kevin
--  发布时间:2011/12/28 16:56:00
--  将文件存储到指定文件夹中
dim r as datarow = e.datarow FileSys.CreateDirectory("D:\\" & r("编码")) 以上代码是当表中增加一行时,自动在D盘创建以“编码”命名的文件夹, 我希望能:当增加了行,假如编码为’1001‘,此时D盘自然就创建了名为‘1001’的文件夹,这个文件夹只能为该编码的数据服务; 该表中,有一个“文件管理”的列,属性为多文件类型。我需要当我插入任何文件时,能自动存储在这个文件夹内, 请问如何处理。
--  作者:狐狸爸爸
--  发布时间:2011/12/28 16:59:00
--  

参考:

http://www.foxtable.com/help/topics/2209.htm

 


--  作者:blackzhu
--  发布时间:2011/12/28 16:59:00
--  
 

Book.Save(ProjectPath & "Attachments\\规格\\" & Tables("订单情况").Current("IO") & "\\" & Tables("订单情况").Current("IO") & T3 & T2 & T4 & T & ".xls")

 

 

excel报表打印最后有BOok.save,直接保存在你的路径下.


--  作者:kevin
--  发布时间:2011/12/28 17:23:00
--  
狐爸你好: Dim dr As DataRow = e.DataRow If dr.IsNull("简称") Or Dr.IsNull("日期") Then MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True Else e.SubFolder = dr("简称") & "\\" & dr("日期").Year ‘ 这个代码最终是以 “简称”\\"2011“为文件名的,我希望是以20111228的形式命名。这应该如何做? End If
--  作者:狐狸爸爸
--  发布时间:2011/12/28 17:33:00
--  

每次发帖,最好将你的代码排一下版,方便别人。

 

Dim dr As DataRow = e.DataRow
If dr.IsNull("简称") Or Dr.IsNull("日期") Then
    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True
Else
    e.SubFolder = dr("简称") & "\\" & Format(dr("日期"),"yyyyMMdd")
End If

 

参考:

http://www.foxtable.com/help/topics/0360.htm