删除列的值为O的列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除列的值为O的列

共有2208人关注过本帖树形打印复制链接主题：删除列的值为O的列

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：6297 威望：0 精华：0 注册：2017/11/8 17:37:00

删除列的值为O的列 发帖心情

Post By：2019/4/10 14:36:00 [只看该作者]

删除列总和值为O的列

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/10 15:37:00 [只看该作者]

Dim g As New CrossTableBuilder("全年销售", DataTables("销售"))
g.HGroups.AddDef("客户全称")
g.VGroups.AddDef("会计年度")
g.Totals.AddDef("结算金额", "结算金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("全年销售")
DataTables("全年销售").DeleteFor( "合计 = 0 ")
Dim ls As new List(Of String)
For Each dc As DataCol In DataTables("全年销售").DataCols
    If dc.IsNumeric Then
        If DataTables("全年销售").Compute("sum(" & dc.name & ")") = 0 Then
            ls.add(dc.name)
        End If
    End If
Next
For Each s As String In ls
    DataTables("全年销售").DataCols.Delete(s)

Next

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：6297 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/4/10 18:45:00 [只看该作者]

多谢

删除行简单，删除列复杂些

下一主题 >> << 上一主题

主题：删除列的值为O的列