老师，怎么让表被勾选到的所有行改变样式，样式我会涉及，被勾选后的行的集合有，我通过按钮将勾选的行生成报表，然后用颜色标记，应该怎么实现Dim rs As List(of Row) = Tables("银保承保清单").GetCheckedRows
If rs.Count > 0 Then '如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\贺报.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\贺报.doc" '指定目标文件
Dim wrt As New WordReport(Tables("银保承保清单"),tm,fl) '定义一个WordReport
For Each r As Row In rs '逐行生成报表
r.Sytle = "已选行"
wrt.BuildOne(r)
Next
wrt.Show() '显示报表
End If
这个代码有问题，Sytle不是行的属性么？
加好友 
发短信
Post By：2019/9/18 14:22:00 [显示全部帖子]
