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

ComboBox1存放的是文件名

我想用ComboBox1的报告模板生成报告

报告的文件名由名称列和编号列组合而成

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 =e.DataRow("名称")
Dim A2 As String =e.DataRow("编号")
Dim bgwjm As  String = "Z:\Reports\" & A1 & "-" & A2 & ".doc"
Dim adf As New WordReport(Tables("1"),tm,bgwjm) '定义一个WordReport
adf.BuildOne(r)
Next

adf.Show()

End If

 

错误显示是变量ADF没有被指定

End With

每一行一个文件？

 

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

是每一行一个文件~

但是大神你这个代码还是不得行啊

代码我测试没有问题。

错误信息是adf.BuildOne(r)没有被定义

还是之前的那个错误

代码没有问题。

 

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

他显示我的ADF变量没有BUILDONE这个属性啊

 

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

我用的商业版啊