以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]咨询一个删除代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108209) |
-- 作者:l1q2lq -- 发布时间:2017/10/18 14:34:00 -- [求助]咨询一个删除代码 库存表中,用鼠标选择连续的多行,点击删除按钮,如果库存列没有数据,则删除选中行,如果库存列有数据,则提示“请先修改库存数据”,选择的所有行都不删除 |
-- 作者:有点甜 -- 发布时间:2017/10/18 15:00:00 -- Dim t As Table = Tables("表A") Dim cant As Boolean = False For i As Integer = t.TopPosition To t.BottomPosition If t.rows(i)("第一列") <> Nothing Then cant = True Exit For End If Next If cant Then msgbox("不能删除") Else For i As Integer = t.BottomPosition To t.TopPosition Step -1 t.rows(i).Delete Next End If |