是代码的问题么？
此主题相关图片如下：qq截图.png
Tables("product").save
Tables("kucun").save
Dim Cols1() As String = {"tanumru","jiecun","chuanhuoc","tasallnum","shangpinming","cord"}
Dim Cols2() As String = {"in","jie","chuanhuo","xiaoshou","name","cord"}
For Each dr1 As DataRow In DataTables("product").Select("[newnum]<>0")
Dim dr2 As DataRow = DataTables("kucun").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
DataTables("kucun1").LoadFilter = ""
DataTables("kucun1").Load
If Tables("xiaoshou").Current IsNot Nothing Then
Dim p As String = Tables("xiaoshou").Current("time1")
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\库存.xls") '打开模板
Dim fl1 As String = ProjectPath & "Reports\库存.xls"
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Book1.Build() '生成报表
Book1.Save(fl1)
Dim Proc1 As New Process
Proc1.File = fl1
Book1.Save("c:\mifeng\kucun\" & p & format(Date.Now, "ddhhmm") & "库存.xls")
Proc1.Start()
End If
加好友 
发短信
Post By：2015/8/13 15:06:00 [只看该作者]
