Foxtable(狐表)用户栏目专家坐堂 → [求助]删除空行


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

主题:[求助]删除空行

帅哥哟,离线,有人找我吗?
如意大帝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:193 威望:0 精华:0 注册:2014/8/13 9:53:00
  发帖心情 Post By:2014/11/5 17:25:00 [只看该作者]

第一列有个默认值,所以删不掉,怎么办?

 回到顶部
帅哥哟,离线,有人找我吗?
如意大帝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:193 威望:0 精华:0 注册:2014/8/13 9:53:00
  发帖心情 Post By:2014/11/5 17:26:00 [只看该作者]

第一列有个默认值,所以删不掉,怎么办?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/5 17:30:00 [只看该作者]

Dim cn As String
For Each c As Col In Tables("表A").cols
    If c.DataCol.DefaultValue > "" Then
        cn = cn & "and (" & c.name & " <> '" & c.Name & "' or " & c.name & " is null )"
    Else
        cn = cn & "and " & c.name & " is null "
    End If
Next

 回到顶部
总数 13 上一页 1 2