| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移除所有行代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187391) |
| -- 作者：puma -- 发布时间：2023/7/14 11:13:00 -- 移除所有行代码 如题：移除所有行代码 当前行Tables("检测报告_减磁").Current.Remove() 有一行命令可以移除吗？还是需要写个循环函数？
|
| -- 作者：有点蓝 -- 发布时间：2023/7/14 11:17:00 -- http://www.foxtable.com/webhelp/topics/0408.htm |
| -- 作者：puma -- 发布时间：2023/7/14 11:29:00 -- 移除所有行，这么写？ DataTables("表").RemoveFor("\'a\'<> \'1\'") |
| -- 作者：有点蓝 -- 发布时间：2023/7/14 11:30:00 -- DataTables("表").RemoveFor("") |
| -- 作者：puma -- 发布时间：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
|