Tables("窗口1_Table1").Fill("Select [_Identify],[客户],[数量],[单价] From {订单}",False)

采用以下方法删除记录：

Tables("窗口1_Table1").current.delete()

不能删除，窗口中显示删除，但重新打开或查看表时发现没有删除

删除之后吗，不要保存才行。

退出窗口前执行：

Tables("窗口1_Table1").Save()

或者加个保存按钮。

在删除按钮的click事件中：

Dim tbl As Table = Tables("w_bxxx_Table1")
    tbl.AllowEdit = True  
    tbl.Current.delete()
    tbl.Current.Save()
    tbl.AllowEdit = False 
    DataTables("zyxxb").Save()

但还是不能做到真正的删除

我在窗口的退出前还加了一句：

DataTables("zyxxb").Save(True)

还是没有效果

我测试可以：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:统计演示.table