- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Value是否可以用变量赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179005)
-- 发布时间：2022/8/2 19:15:00
-- Value是否可以用变量赋值
我想根据条件找到某一单元格，并取得其中的数据，下一步要用在存档的文件名中。我不知道怎么读取，请教老师。
或者有没有别的代码动态读取单元格数据。
With CurrentTable
Dim r As Integer
r = .FindRow("[是否存档] = True") \'从第一行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行。
End If
End With
Dim fl1 As String
fl1 = CurrentTable.Value(r, "设备名")‘这是的r不能用吗？当我把r换成数字时可以
Dim Products As List(Of String)
Products = DataTables("记录").GetValues("设备名", "是否打印 = True")
For Each Product As String In Products
Dim tm As String = ProjectPath & "Attachments\\申请表.doc" \'指定模板文件
Dim fl As String = ProjectPath & "报表\\" & "申请表" & "-" & fl1 & ".doc" \'根据单元格生成新文件，这里不用Product，因为还要用到一个单元格的内容
Dim wrt As New WordReport(Tables("记录"), tm, fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
Next
[此贴子已经被作者于2022/8/2 21:31:40编辑过]
-- 发布时间：2022/8/2 20:33:00
--
fl1 = CurrentTable.current("设备名")
-- 发布时间：2022/8/2 21:43:00
--
完美，
谢谢！