以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  利用.row(i).delete()删除表中记录不成功？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135435)
--  作者：malavazos
--  发布时间：2019/5/26 21:07:00
--  利用.row(i).delete()删除表中记录不成功？
希望利用下面的代码，每次执行都可以首先清空表B，然后在重新填充表b数据。可是得到的结果是每次仅仅减少一半的数据，并且不是固定值。不能首先全部清除记录再添加记录？
With Tables("表b")
    output.show(.Rows.count -1)
    For i As Integer = 0 To Tables("表b").Rows.Count -1
        \'output.show(i)
        .Rows(i).Delete()
        For h As Integer = 0 To 100
            
        Next
    Next
    output.show(.Rows.count -1)
End With

Dim f As New Filler
f.SourceTable = DataTables("统计") \'指定数据来源
f.SourceCols = "任务编号,设备台数" \'指定数据来源列
f.DataTable = DataTables("表b") \'指定数据接收表
f.DataCols = "任务编号,设备台数" \'指定数据接收列

f.Fill() \'填充数据
--  作者：y2287958
--  发布时间：2019/5/27 8:57:00
--  
With Tables("表A")
    output.show(.Rows.count -1)
    For i As Integer = .Rows.Count -1 To 0 Step -1
        \'output.show(i)
        .Rows(i).Delete()
        \'For h As Integer = 0 To 100
        \'
        \'Next
    Next
    \'output.show(.Rows.count -1)
End With
--  作者：有点甜
--  发布时间：2019/5/27 9:05:00
--  

 

需要倒过来删除

 

http://www.foxtable.com/help/topics/0599.htm