主题：[求助]字符

 导入以后，再处理。

 

For Each r As Row In Tables("表A").rows
    Dim ary() As String = r("第一列").split(",")
    If ary.length > 1 Then
        r("第二列") = ary(1)
    End If
Next

For Each r As Row In Tables("表A").rows
    Dim ary() As String = r("第一列").split(",")
    If ary.length > 1 Then

        r("第三列") = ary(0)
        r("第二列") = ary(1)
    End If
Next

执行12楼的代码，菜单闪动？

 

还是说怎么操作后菜单闪动？

试试

 

SystemReady = False

For Each r As Row In Tables("表A").rows
    Dim ary() As String = r("第一列").split(",")
    If ary.length > 1 Then

        r("第三列") = ary(0)
        r("第二列") = ary(1)
    End If
Next

SystemReady = True

上传实例，加上数据库。

 截图说明怎么点击，怎么操作，怎么有问题。

 

1、导入数据，可以关闭项目；

 

2、断层问题，是因为数据有问题，具体哪里断层？

 

3、截图说明重叠

断层的问题，应该是你表里面有空格的数据行吧？你把它们删除一下就行了。我的正常

 

 

此主题相关图片如下：qq截图20150810221121.jpg

23、24楼什么意思？断层？

 

断层是导入的数据导致的问题。

27楼的代码，不可能报错。

 

如果报错，你告诉我例子里怎么操作会报错？

 

参考代码

 

Dim t As Table = Tables("表A")
For i As Integer = t.rows.Count - 1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r("第一列").trim = "" Then
        r.delete
    End If
Next