以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Var变量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195710)

--  作者:lgj716330
--  发布时间:2025/3/3 13:37:00
--  [求助]Var变量

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250303133349.png
图片点击可在新窗口打开查看

上表中区经是不固定的,可能随时会变,所以做了个var变量引用

Dim qjs As list(Of String()) = DataTables("区经档案").GetValues("区域|区经")
For Each qj As String() In qjs
    Dim drs As List(Of DataRow) = DataTables("区经档案").Select("区域=\'" & qj(0) & "\' and 区经=\'" & qj(1) & "\'")
    For n As Integer = 0 To drs.Count - 1
        If n > 0 Then
            Vars(drs(n)("区域")) = drs(n)("区经")
        End If 
    Next 
Next

在excel报表中通过[!区域01]引用的时候值是空的,不知道上面代码哪里有问题

--  作者:有点蓝
--  发布时间:2025/3/3 13:47:00
--  
要在生成报表之前执行这个代码,另外代码有点啰嗦了

Dim qjs As list(Of String()) = DataTables("区经档案").GetValues("区域|区经")
For Each qj As String() In qjs
    Vars(qj(0)) = qj(1)
Next