收录日期:2020/11/29 21:56:53 时间:2016/07/15 06:29:01 标签:VB.NET
大伙帮我看看我的代码.


Private Sub TreeFullData(ByVal tnParentNode As TreeNode, ByVal str As String)   '此过程用在展开树,STR变量为TREE点中的变量值,用此值,查询出下阶物料值,付给TREE.
        Dim trnchildentNode As New TreeNode
        Dim sql As String
        Dim texCurrentNode As String
        Dim position As Integer
        Dim oRec As SAPbobsCOM.Recordset
        Dim i As Integer = 0
        Try
           
            oRec = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

            sql = "exec U_BomSelect '" & str & "'"   '这是通过存储过程,获取结点号
            oRec.DoQuery(sql)

            If oRec.RecordCount > 0 Then

                Do Until oRec.EoF
                    texCurrentNode = oRec.Fields.Item("U_CurItem").Value
                    trnchildentNode.Text = texCurrentNode
                    tnParentNode.Nodes.Add(trnchildentNode)
                    TreeFullData(trnchildentNode, texCurrentNode)
                    oRec.MoveNext()
                Loop
            End If

        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        Finally
            oRec = Nothing
            sql = Nothing
            str = Nothing
            tnParentNode = Nothing
            trnchildentNode = Nothing
            texCurrentNode = Nothing

        End Try
    End Sub


这是一个加载数据库表的代码.从结构上来看,应该没有问题,但在运行时,会出现错误,并且结果是错误的.

错误提示是错误的提示是" Cannot add or insert then item""............"
把Dim trnchildentNode As New TreeNode 这一句放到Do Until里面去
还有你texCurrentNode的定义完全没意义
texCurrentNode = oRec.Fields.Item("U_CurItem").Value 
trnchildentNode.Text = texCurrentNode 
这两句为什么不合并成
trnchildentNode.Text = oRec.Fields.Item("U_CurItem").Value
呢?
Dim trnchildentNode As New TreeNode 
放在   Do Until oRec.EoF 内部
参考
参考
...
3楼正解.

郁闷ing... 谁有 Flexlm 的中文文档,200分 高分送出,UP有分! 菜菜的问题,大家来呀分都给了 在线等待,JRun的配置 请问在PFC中标签如何使用,为什么我看不到标签头,u_tab与u_tabpg如何使用 如何在程序中检测声音设备是否已被其它程序占用 java基本语法、API问题。 请大家谈谈Workflow和Domino的关系,来者即可得分。 错了,错了,我是在网上下了一个DELPHI开发的应用程序,是用SERVER2000作为数据库的,我想执行应用程序,请问如何配置? 请教EHLIB的TDBGridEh问题 如何使静态标签和按钮控件与对话框背景色一致 求救:我想要一个全局键盘钩子,高分!!!谢谢 关于ipicture的问题 错了,错了,我是在网上下了一个DELPHI开发的应用程序,是用SERVER2000作为数据库的,我想执行应用程序,请问如何配置? 一个查询结果的显示问题——高分有送 救命!!!我的IIS不能浏览中文文件名的网页,提示404 vb.net能连接access的ODBC数据源吗? 请问怎么使用xpmenu控件? 关于XpMenu控件一BUG的解决! 关于动态创建窗体! 问:对HTC的引用除了behavior还有什么其他方法? iText打印问题 请哪位朋友帮我看看这个程序怎么个算法?50分相赠 谁能提供ErWin在Rational Rose中的插件,重赏200分,决不食言! Canvas怎么样画一个透明的多边形的框 ChildWindowFromPoint与WindowFromPoint的区别 想问一些有关节省资源的问题,请大家帮助! 请问如何制作vb安装程序 我怎么才能与数据库连接! 哪种bible的题库最准?