主题：[求助]清除当前表数据,来个高手指点下

新手上路

问题比较多

请多关照

我想设置一按钮清除某一表中的数据

也就是删除所有单元格的内容

请问代码该如何写

清除当前表数据

CurrentTable.DataTable.DataRows.Clear()

厉害,我要清除表数据,你直接叫我删除行

我再给你一段代码看看

我是这样实现的

Dim f As  New Filler
f.SourceTable = DataTables("入库") '指定数据来源
f.SourceCols = "单号,编码,类别,品名,型号,规格,材质,单位,数量,库位,单据类型,日期,部门" '指定数据来源列
f.DataTable = DataTables("出入库明细") '指定数据接收表
f.DataCols = "单号,编码,类别,品名,型号,规格,材质,单位,数量,库位,单据类型,日期,部门" '指定数据接收列
f.Fill() '填充数据
With DataTables("入库")
    .DataRows.Clear() '清除所有行
End With
With DataTables("入库")
    .DataRows.AddNew(15) '增加(15)行
End With

清除表数据就是这样的,楼主底下的代码看不懂,先执行填充,后清除数据,再添加15个空行?    意义何在?

上面那一串代码纯粹诱惑你的,是把一个表的数据填充到另一个表,你给的代码是删除所有行,所以我要添加空行,要不我往哪里输入数据呢?其实我想过初始化表,但是帮助里面找不到代码

被你搞糊涂了，同时也服了你了。

CurrentTable.Select(0,0,CurrentTable.Rows.Count-1,CurrentTable.Cols.Count-1)
CurrentTable.EditDelete()

循环再循环，提示给您，自己做作业！

能不能提示的明白点,我看不太懂哎,谢谢啦

我也糊涂了。