Dim t As Table = CurrentTable DataTables("本二志愿").DeleteFor("") Dim count As Integer = iif(t.current.index+75<t.rows.count, t.current.index+75, t.rows.count-1) For i As Integer = t.Current.Index+1 To count Dim r As Row = t.rows(i) Dim nr As DataRow = DataTables("本二志愿").AddNew() For Each dc As Col In t.Cols nr(dc.name) = r(dc.name) Next Next DataTables("本二志愿").save() MainTable=Tables("本二志愿")
加好友 
发短信
Post By：2017/7/2 14:43:00 [显示全部帖子]
