以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除全部行问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99363)

--  作者:jick0526
--  发布时间:2017/4/18 1:02:00
--  删除全部行问题
老师,我在功能区做了个当前表删除全部行按钮,下面的代码哪里错了?

Dim Result As DialogResult
Result = MessageBox.Show("确认删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    \'Syscmd.Row.Delete()删除代码
CurrentTable.cols.delete
End If

--  作者:cd_tdh
--  发布时间:2017/4/18 2:22:00
--  
DataTables("表名").datarows.clear
--  作者:jick0526
--  发布时间:2017/4/18 12:21:00
--  
老师,如果我想要的是对所有表都有效,就是对当前表的,通用的,该怎么改。
--  作者:菜鸟王中王
--  发布时间:2017/4/18 13:52:00
--  
1  删除全部表内容

For Each dt As DataTable In DataTables
    DataTables(dt.Name).datarows.clear
Next
2 删除当前表内容
 DataTables(CurrentTable.Name).datarows.clear