以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据选定行进行WORD文件套打，这个代码有没有错？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46781)
--  作者：李孝春
--  发布时间：2014/2/27 15:55:00
--  根据选定行进行WORD文件套打，这个代码有没有错？
 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 \'逐行生成报表
        wrt.BuildOne(r)
    Next
    wrt.Show() \'显示报表
End If
这个代码运行提示错误  For Each r As Row In rs应为表达式  怎么解决呢？求教 
--  作者：Bin
--  发布时间：2014/2/27 15:59:00
--  
这,不应该会报这个错误呀,看起来没有任何问题呢.  请上例子看看.
--  作者：李孝春
--  发布时间：2014/2/27 16:05:00
--  我在chick这个事件中写代码 保存提示错误
我在chick这个事件中写代码 保存提示错误 For Each r As Row In rs应为表达式