主题：[求助]表新增行时，更新当前行位置数据

 写在dataColChanged事件的代码

Select Case e.DataCol.Name
    Case "第二列"
        e.DataRow("suit") = Tables(e.DataTable.Name).FindRow(e.DataRow)
End Select

 写在DataRowAdded的代码

e.DataTable.DataCols("第二列").RaiseDataColChanged("_Sortkey >= " & e.DataRow("_SortKey"))

 ---------------------------------------------------------------------

接下来，自由变通下便可。