以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教:删除表中的所有记录时,只删除了一半的行。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67227)

--  作者:sjzsdu
--  发布时间:2015/4/20 15:24:00
--  求教:删除表中的所有记录时,只删除了一半的行。
求教:删除表中的所有记录时,只删除了一半的行。  代码如下:

Dim da1 As Date=Date.now
Dim sum As Integer
Dim tb As WinForm.Table = e.Form.Controls("Table1")
For Each rr As Row In tb.Table.Rows
 rr.DataRow.Delete
sum=sum+1
Next

Dim da2 As Date=Date.now
Dim sp As TimeSpan=da2-da1
MessageBox.show("过程执行秒数为:" & sp.Seconds & "  总共去除彩票注数:" & sum)

--  作者:Bin
--  发布时间:2015/4/20 15:26:00
--  
不能这样删除



另外要删除所有行,你只需要一句代码

tb.Table.Datatable.datarows.clear