以文本方式查看主题 - 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行
但现在只能导出最后一个,请各位老师指教!
|
-- 作者:有点蓝 -- 发布时间: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 -- 谢谢老师指教! |