Foxtable(狐表)用户栏目专家坐堂 → 求教:删除表中的所有记录时,只删除了一半的行。


  共有4497人关注过本帖平板打印复制链接

主题:求教:删除表中的所有记录时,只删除了一半的行。

帅哥哟,离线,有人找我吗?
sjzsdu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
求教:删除表中的所有记录时,只删除了一半的行。  发帖心情 Post By: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 & "  总共去除彩piao注数:" & sum)

 回到顶部