Foxtable(狐表)用户栏目专家坐堂 → [求助]这样的要求在狐表中如何完成?


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

主题:[求助]这样的要求在狐表中如何完成?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/25 7:43:00 [显示全部帖子]

楼主要的应该是这个:

 

With Tables("Sheet1")
    For i As Integer = .Rows.Count-1 To 0 Step - 1
        Dim v As String = .rows(i)("型号")
        If v.EndsWith("-070") OrElse v.EndsWith("-071") OrElse v.EndsWith("-072")

        Else
            .rows(i).delete()
        End If
    Next
End With

[此贴子已经被作者于2011-4-25 7:44:01编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/27 10:05:00 [显示全部帖子]

直接将4楼代码复制到命令窗口执行即可。


 回到顶部