主题：[求助] 帮忙看个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