1、
Dim nr As Row = Tables("表A").AddNewnr.Table.Select(nr.Index, nr.Table.Cols("第二列").index)
2、在新增行之前,重置当前行(或者某一行)
DataTables("表A").DataCols("第二列").RaiseDataColChanged(Tables("表A").Current.DataRow)