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

说明： 只是为了简化 结果弄简为繁了。。。 见笑了～ 
全部列都是字符型。  问题：
1  不能从第二列开始录入，否则会退出系统；
2  必须从第三列到第八列按顺序录入字符后，再录入第二列，这时，第十列会按要求自动赋值；
3  按2录入完后，就不能修改第二列 到 第九列的内容了，否则会退出系统。

不知道我的代码有何毛病，这里特别说明： 代码放在命令窗口时可以顺利执行！！！

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

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

附件错了，重新上传

````

重新上传附加了～

奇怪，有时又可以修改？       知道了，可以修改，但不能删除那几列对应的单元格内容

谢谢啊~  就是想简化：【Tables("表A").current 是为了在命令窗口中测试用的】
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 = s & "§"  & drw("" & cs(i) & "") & "§"       '这是简化后的
next
    If s.Contains("§§§") Then
        drw("第十列") = Nothing
    Else
        drw("第十列")= drw("第二列") & drw("第三列") & drw("第四列") & drw("第五列") & drw("第六列") & drw("第七列") & drw("第八列") & drw("第九列")   '这段还没简化～
    end if

太感谢了～   确实是老师级的！！！