With Tables("表A")
.Position = .Position + 1
End With
Dim fdr As DataRow = DataTables("表A").find("第一列 like '" & Tables("表A").Current("第一列") & ".%'")
If fdr IsNot Nothing Then
With Tables("表A")
.Position = .Position + 1
End With
Dim fdr1 As DataRow = DataTables("表A").find("第一列 like '" & Tables("表A").Current("第一列") & ".%'")
If fdr1 IsNot Nothing Then
With Tables("表A")
.Position = .Position + 1
End With
End If
End If
代码 Dim fdr1 As DataRow = DataTables("表A").find("第一列 like '" & Tables("表A").Current("第一列") & ".%'")
应如何改才是最下级的？
加好友 
发短信
Post By：2016/3/28 15:15:00 [只看该作者]
