Foxtable(狐表)用户栏目专家坐堂 → 移除所有行代码


  共有3377人关注过本帖树形打印复制链接

主题:移除所有行代码

帅哥哟,离线,有人找我吗?
puma
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:3005 威望:0 精华:0 注册:2023/6/7 16:07:00
移除所有行代码  发帖心情 Post By:2023/7/14 11:13:00 [只看该作者]

如题:移除所有行代码
当前行Tables("检测报告_减磁").Current.Remove()


有一行命令可以移除吗?还是需要写个循环函数?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/14 11:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
puma
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:3005 威望:0 精华:0 注册:2023/6/7 16:07:00
  发帖心情 Post By:2023/7/14 11:29:00 [只看该作者]

移除所有行,这么写?
DataTables("表").RemoveFor("'a'<> '1'")



 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/14 11:30:00 [只看该作者]

DataTables("表").RemoveFor("")

 回到顶部
帅哥哟,离线,有人找我吗?
puma
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:3005 威望:0 精华:0 注册:2023/6/7 16:07:00
  发帖心情 Post By:2023/7/14 12:09:00 [只看该作者]


谢谢!  以下完整代码

If Tables("表").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    Dim Result As DialogResult
    Result = MessageBox.Show("当前数据未保存,是否继续", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表").RemoveFor("")
    Else
       e.Cancel = True
    End If
End If

 回到顶部