以文本方式查看主题 - 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变量 上表中区经是不固定的,可能随时会变,所以做了个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 |