主题：[求助] 帮忙看个currentchange事件的错误

先发下代码吧和错误图片吧，不行再弄例子吧亲 帮忙看看哈 代码很简单

Dim t As Table = Tables("生产进度管理_生产进度表")
Dim s As String
With e.Table
    If .Current Is Nothing Then
        t.DataTable.LoadFilter = "False"
    Else
        s = "select * from {零件表} where 项目编号 = "
        s = s & "'" & .Current("项目编号") & "'"
        t.Fill(s,"atwdb",False)
    End If
End With

 

For Each r As Row In Tables("生产进度管理_生产进度表").Rows
    If r Is Nothing OrElse r.Isnull("bom") Then
        Return
    Else
        Dim tr As WinForm.TreeView = Forms("生产进度管理").Controls("TreeView1")
        tr.CreateTree("生产进度管理_生产进度表","bom")
        tr.ExpandAll
    End If
    Exit For
Next

 

不管是两段整合成一段处理还是分开处理 在切换的时候 都有这个错误

但如果把第二段for each 取消 就不会有错误了

 

此主题相关图片如下：qq截图20130703093103.png

有可能你FILL还没执行完.这时候你循环行数还是原来的行数, 这种情况你还是上个例子分析一下比较好.

 

 

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

点击浏览该文件:管理项目11.rar

这个和你标识的代码没有任何关系.

Bin总 我看错事件了…… 那那边怎么写，请Bin总明示~

你要实现什么需求?

currentchanged 事件 需要实现生成的目录树后 在切换行的同时 对应的目录树选中也会改变

你不能直接用DATAROW来做, 这样是不行的,因为你重新FILL的时候 原本的DATAROW已经不存在了.

Bin爷 小弟不才，你如此一说，小弟现在毫无头绪了~第一次发现datarow这个属性的时候发现很好很牛B，那么现在看来囧rz..我该肿么办~

别用节点的DATAROW 非要用的话就不要用动态FILL了.改用全部加载,然后点击筛选.