1、不应该在datacolchanged那里写代码处理。
2、你可以直接移动行（上移行、下移行等方式）后，重新编号，如
For Each r As Row In Tables("检验资料维护").Rows r("先后顺序") = r.Index + 1Next
3、或者你手动输入【先后顺序】以后，再点击按钮重新生成所有编号
加好友 
发短信
Post By：2018/12/2 21:37:00 [只看该作者]
