主题：插入行的问题

以下代码执行报错，已上传实例，帮看看

 

Dim t As Table = Tables("表a")
Dim wz As Integer = Tables("表a").position
Dim wz1 As Integer = Tables("表a").position
Dim a1 As Integer = t(wz1)("级别")

If wz+1<=Tables("表a").Rows.count AndAlso t(wz)("级别")>=1  Then
   
    If  t(wz+1)("级别") > a1  Then
        Do While t(wz+1)("级别") - a1 = 1
            wz = wz+1
        Loop
        If wz = Tables("表a").Rows.count-1  Then
           
            Tables("表a").addNew()
        Else
            Tables("表a").position = wz+1
            Tables("表a").InsertNew()
            Tables("表a").position = wz1
           
        End If
       
    Else
       
        Tables("表a").position = wz+1
        Tables("表a").InsertNew()
        Tables("表a").position = wz
       
       
    End If
End If

 

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

点击浏览该文件:管理项目2.table

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

点击浏览该文件:管理项目2 (4).zip

你的代码很不错，但我的代码为什么报错能帮查查原因吗

这种代码我看着就脑壳疼，逻辑本身就有问题，没有办法查