以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样将个临时表导到一个表单中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151049)

--  作者:cxmxjwlmq
--  发布时间:2020/6/13 18:25:00
--  怎样将个临时表导到一个表单中

各位老师:下面代码总计生成4个临时表,我想要的效果是这四个临时表全部导入至一个表单中

 

Dim zhkdmbm As DataRow = DataTables("组合框代码").DataRows(11) \'组合框代码中的第11行
Dim Multi As String = zhkdmbm("列表项目")                      \'组合框代码中的第11行的列表项目一列的值
Dim Values() As String = Multi.split("|")                    \'用号分割成姓名数据
For Index As  Integer = 0 To Values.Length - 1        \'从0开始
    e.Form.Controls("TextBox4").Text = Values(Index)
Dim sj As Date = e.form.controls("DateTimePicker2").Value  \'将当前日期赋值给DateTimePicker1
Dim d1 As Date = sj.AddDays(6) \'加上6天
Dim dtb1 As New DataTableBuilder(Values(Index))
Dim ta1 As DataTable
 dtb1.AddDef("零件图号",     Gettype(String), 32)\'字符型
 dtb1.AddDef("零件名称",     Gettype(String), 32)  
 dtb1.AddDef("零件属性",    Gettype(String), 32) 
 dtb1.AddDef("来货数量", Gettype(Integer))  \'数值型
 ta1 =  dtb1.Build()
Dim Cols1() As String = {"编号图号","部件名称","颜色","交检"}
Dim Cols2() As String = {"零件图号","零件名称","零件属性","来货数量"}
For Each dr1 As DataRow In DataTables("部品质量管理").Select("日期 = \'" & sj & "\'and 检验员 = \'" & Values(Index) & "\' and 序号 = 0")
    Dim dr2 As DataRow = DataTables(Values(Index)).AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
Dim jyy1 As Integer = Tables(Values(Index)).Rows.Count
Dim Book As New XLS.Book \'定义一个Excel工作簿
\'Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Book.Sheets.RemoveAt(0)
Book.Sheets.Add(Values(Index)) \'增加一个工作表
Dim Sheet As XLS.Sheet = Book.Sheets(Values(Index)) \'引用工作簿的第一个工作表
 Dim bb1 As Table = Tables(Values(Index))
 Dim nms1()  As String = {"零件图号","零件名称","零件属性","来货数量"} \'要导出的列名
   For r As Integer = 0 To bb1.Rows.Count - 1   \'填入数据
      For c As Integer = 0 To nms1.length -1
             Sheet(r + 6, c+1).Value = bb1.rows(r)(nms1(c))
     Next
   Next
Book.Save("c:\\reports\\test.xls") \'保存工作簿
\'Dim Proc As New Process \'打开工作簿
\'Proc.File = "c:\\reports\\test.xls"
\'Proc.Start()
Next

 

但现在只能导出最后一个,请各位老师指教!

 


--  作者:有点蓝
--  发布时间:2020/6/14 20:17:00
--  
Dim zhkdmbm As DataRow = DataTables("组合框代码").DataRows(11) \'组合框代码中的第11行
Dim Multi As String = zhkdmbm("列表项目")                      \'组合框代码中的第11行的列表项目一列的值
Dim Values() As String = Multi.split("|")                    \'用号分割成姓名数据
Dim Book As New XLS.Book \'定义一个Excel工作簿
\'Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Book.Sheets.RemoveAt(0)
For Index As  Integer = 0 To Values.Length - 1        \'从0开始
    e.Form.Controls("TextBox4").Text = Values(Index)
    Dim sj As Date = e.form.controls("DateTimePicker2").Value  \'将当前日期赋值给DateTimePicker1
    Dim d1 As Date = sj.AddDays(6) \'加上6天
    Dim dtb1 As New DataTableBuilder(Values(Index))
    Dim ta1 As DataTable
    dtb1.AddDef("零件图号",     Gettype(String), 32)\'字符型
    dtb1.AddDef("零件名称",     Gettype(String), 32)
    dtb1.AddDef("零件属性",    Gettype(String), 32)
    dtb1.AddDef("来货数量", Gettype(Integer))  \'数值型
    ta1 =  dtb1.Build()
    Dim Cols1() As String = {"编号图号","部件名称","颜色","交检"}
    Dim Cols2() As String = {"零件图号","零件名称","零件属性","来货数量"}
    For Each dr1 As DataRow In DataTables("部品质量管理").Select("日期 = \'" & sj & "\'and 检验员 = \'" & Values(Index) & "\' and 序号 = 0")
        Dim dr2 As DataRow = DataTables(Values(Index)).AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    Next
    Dim jyy1 As Integer = Tables(Values(Index)).Rows.Count
    
    Book.Sheets.Add(Values(Index)) \'增加一个工作表
    Dim Sheet As XLS.Sheet = Book.Sheets(Values(Index)) \'引用工作簿的第一个工作表
    Dim bb1 As Table = Tables(Values(Index))
    Dim nms1()  As String = {"零件图号","零件名称","零件属性","来货数量"} \'要导出的列名
    For r As Integer = 0 To bb1.Rows.Count - 1   \'填入数据
        For c As Integer = 0 To nms1.length -1
            Sheet(r + 6, c+1).Value = bb1.rows(r)(nms1(c))
        Next
    Next
    
    
Next
Book.Save("c:\\reports\\test.xls") \'保存工作簿
\'Dim Proc As New Process \'打开工作簿
\'Proc.File = "c:\\reports\\test.xls"
\'Proc.Start()

--  作者:cxmxjwlmq
--  发布时间:2020/6/15 9:59:00
--  

谢谢老师指教!