以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表数据引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194835)
--  作者：ycs5801
--  发布时间：2025/1/19 10:48:00
--  excel报表数据引用
在excel报表中，a表的第一列和第二列与b表的第一列，都有关联，想在b表的报表中根据关联列引用a表中对应的数据，应该怎样操作？是需要将a表与b表建立关联？还是直接引用。
示例：假如a表的第一列数值为1、3、5，第二列数值为4、7、8，a表的第一列和第二列数字都不在一个行，且都不相同。b表的第一列数值为1、3、5、4、7、8，现在想在b表的第二列调取对应a表的第三列数值。
--  作者：ycs5801
--  发布时间：2025/1/19 19:53:00
--  
\'先判断是否都填报了
Dim nms() As String = {"TextBox1"}
For Each nm As String In nms
    If e.form.controls(nm).value = Nothing Then
        messagebox.show("请填写完整资料打印")
        Return
    End If 
Next


Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
MessageBox.Show("1")
cmd.Comma ndText = "SE LECT 报检号 领用日期及编号 印刷流水号 From {列表项目} Wh ere 指定领用日期及编号=\'" & e.form.Controls("TextBox1").Value & "\'"
dt = cmd.ExecuteReader() \'生成一个临时表dt
MessageBox.Show("2")
dt.DataCols.Add("船名", GetType(String)) \'生成3个临时列
dt.DataCols.Add("日期", GetType(Date))
dt.DataCols.Add("使用人", GetType(String))
MessageBox.Show("3")
For Each dr1 As DataRow In dt.DataRows \'在已经生成的临时表中循环
    If dr1("报检号").SubString(6, 1) = "A" Then \'如果是入境  
        Dim dr2 As DataRow = DataTables("检疫资料").sqlFind("[入境签证编号] = \'" & dr1("报检号") & "\'")
        If dr2 IsNot Nothing Then 
            dr1("船名") = dr2("中文船名")
            dr1("日期") = dr2("入境签证日期及时间")
            dr1("使用人") = dr2("入境检疫医师")
        End If
    ElseIf dr1("报检号").SubString(6, 1) = "C" Then \'如果是出境  
        Dim dr3 As DataRow = DataTables("检疫资料").sqlFind("[入境签证编号] = \'" & dr1("报检号") & "\'")
        If dr3 IsNot Nothing Then 
            dr1("船名") = dr3("中文船名")
            dr1("日期") = dr3("入境签证日期及时间")
            dr1("使用人") = dr3("入境检疫医师")
        End If
    End If 
Next

Dim Book As New XLS.Book(ProjectPath & "Attachments\\证书记录打印模版.xlsx")
Dim fl As String = ProjectPath & "Attachments\\证书记录.xlsx"
Book.Build() \'生成细节区
Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿

Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

我自己写了代码先生成一个临时表，然后再填充数据，现在黄色部分程序运行不过去。这种方式可行吗？还是有别的方式？