我想根据条件找到某一单元格，并取得其中的数据，下一步要用在存档的文件名中。我不知道怎么读取，请教老师。
或者有没有别的代码动态读取单元格数据。
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编辑过]
加好友 
发短信
Post By：2022/8/2 19:15:00 [只看该作者]
谢谢！