写代码
Dim i As Integer = 1For Each dr As DataRow In DataTables("表a").Select("第一列 is not null", "第一列") dr("_Sortkey") = i i += 1NextDataTables("表a").replacefor("_Sortkey", Long.MaxValue , "第一列 is null")
加好友 
发短信
Post By：2016/8/1 9:56:00 [显示全部帖子]
