希望利用下面的代码,每次执行都可以首先清空表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() '填充数据