Foxtable(狐表)用户栏目专家坐堂 → [求助]咨询一个删除代码


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

主题:[求助]咨询一个删除代码

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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
[求助]咨询一个删除代码  发帖心情 Post By:2017/10/18 14:34:00 [只看该作者]

库存表中,用鼠标选择连续的多行,点击删除按钮,如果库存列没有数据,则删除选中行,如果库存列有数据,则提示“请先修改库存数据”,选择的所有行都不删除

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部