以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  大神帮忙看下代码错误哎~  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97247)
--  作者：527383691
--  发布时间：2017/3/8 16:30:00
--  大神帮忙看下代码错误哎~

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
--  作者：有点色
--  发布时间：2017/3/8 16:50:00
--  

每一行一个文件？

 

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
--  作者：527383691
--  发布时间：2017/3/9 10:50:00
--  

是每一行一个文件~

但是大神你这个代码还是不得行啊
--  作者：有点蓝
--  发布时间：2017/3/9 11:11:00
--  
代码我测试没有问题。

具体错误信息贴上来看看
--  作者：527383691
--  发布时间：2017/3/9 12:30:00
--  
错误信息是adf.BuildOne(r)没有被定义
--  作者：527383691
--  发布时间：2017/3/9 12:31:00
--  
还是之前的那个错误
--  作者：有点色
--  发布时间：2017/3/9 13:26:00
--  

代码没有问题。

 

不要写多余代码，直接拷贝2楼代码进去，如果还报错，请升级你的foxtable版本。
--  作者：527383691
--  发布时间：2017/3/9 14:26:00
--  
他显示我的ADF变量没有BUILDONE这个属性啊
--  作者：有点色
--  发布时间：2017/3/9 14:38:00
--  
以下是引用527383691在2017/3/9 14:26:00的发言：
他显示我的ADF变量没有BUILDONE这个属性啊

 

升级到最新版foxtable。请用试用版，请不要用盗版。
--  作者：527383691
--  发布时间：2017/3/9 17:26:00
--  

我用的商业版啊