主题：请帮看看datacolchanged里的代码有何问题？【ok了】

老兄想复杂了。

Dim s As String
dim drw as DataRow = e.DataRow
Dim ColNames As String = "第二列,第三列,第四列,第五列,第六列,第七列,第八列,第九列"
Dim cs() As string = ColNames.split(",")
for i as integer = 0 to cs.length-1
    s = drw("第二列") & "§" & drw("第三列") & "§" & drw("第四列") & "§" & drw("第五列") & "§" & drw("第六列") & "§" & drw("第七列") & "§" & drw("第八列") & "§" & drw("第九列")
    If s.Contains("§§") Then
        drw("第十列") = Nothing
    Else
        drw("第十列")= drw("第二列") & drw("第三列") & drw("第四列") & drw("第五列") & drw("第六列") & drw("第七列") & drw("第八列") & drw("第九列")
    end if
next

另外用ables("表A").current是极其错误的，因为一旦重置，都是以焦点所在行为基准而更改所有数据的。

哦，我还没注意到你要简化，只是解决了出错问题。

Dim s,s1 As String
dim drw as DataRow = e.DataRow
Dim ColNames As String = "第二列,第三列,第四列,第五列,第六列,第七列,第八列,第九列"
Dim cs() As string = ColNames.split(",")
for i as integer = 0 to cs.length-1
    s = s & "§"  & drw(cs(i)) & "§"       '这是简化后的
    s1 = s1 & drw(cs(i))
next
If s.Contains("§§§") Then
    drw("第十列") = Nothing
Else
    drw("第十列")= s1
end if

drw("" & cs(i) & "")
这段无需这样的，直接

drw(cs(i)) 就可以。