主题：[求助]窗体连续打印问题？

高人就是高人，真是会者不难！

甜版，帮忙看一下，打开会计科目窗体，如以下错误提示：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.rar

此主题相关图片如下：指定参数已超出有效值范围.jpg

 这么久了，你能不能有点自己的调试能力？

 

http://www.foxtable.com/help/topics/1485.htm

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目_主表")
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
    tr.Nodes.Add(rt)
Next

For Each dr As DataRow In dt.Select("", "科目代码")
    If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then
        Dim i As Integer = CInt(dr("科目代码").Substring(0,1))
        If i < rts.Length Then
            nd = tr.Nodes(i).Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))
            Functions.Execute("AddChildren",nd,dt)
        End If
    End If
Next
tr.ResumeRedraw()

打开记账凭证，双击会计科目，打开会计科目目录树，双击需要的额科目，出现以下错误提示：
此主题相关图片如下：未将对象引用设置到对象的实例.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.rar

 自己调试

甜版，我也不是遇到问题就直接发上来的，我是自己鼓捣半天实在没法才发上来的！还是再麻烦您帮我看看这个问题。

 看13楼

参考帮助,有介绍怎么调试 http://www.foxtable.com/help/topics/1485.htm

 代码

 

If e.Node.Level = 0 Then  '如果是顶层节点
    Return '则返回
End If

Dim Val() As String = e.Node.Text.Split(" ")
Dim r As Row = Tables("记账凭证_主表.记账凭证_明细").Current

r("科目代码") = val(0)
r("会计科目") = val(1)
e.Form.Close()