主题：大神帮忙看下代码错误哎~

每一行一个文件？

With e.Form.Controls("ComboBox1")
    Dim cAb As String = .Value
    Dim tm As String = "Z:\Attachments\" & cAb
    Dim rs As List(of Row) = Tables("1").GetCheckedRows
    If rs.Count > 0 Then '如果存在符合条件的行
        For Each r As Row In rs          
            Dim A1 As String =r("名称")
            Dim A2 As String =r("编号")
            Dim bgwjm As  String = "Z:\Reports\" & A1 & "-" & A2 & ".doc"
            Dim adf As New WordReport(Tables("1"),tm,bgwjm) '定义一个WordReport
            adf.BuildOne(r)
            adf.Show()
        Next
    End If   
End With

代码没有问题。

不要写多余代码，直接拷贝2楼代码进去，如果还报错，请升级你的foxtable版本。

升级到最新版foxtable。请用试用版，请不要用盗版。

我测试，有提示。请升级到最新版。