以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么将窗口中的表，多余行列删除？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135429)
--  作者：2474842866
--  发布时间：2019/5/26 13:11:00
--  怎么将窗口中的表，多余行列删除？
图是这样的：

图片点击可在新窗口打开查看此主题相关图片如下：360截图20190525171642069.jpg
图片点击可在新窗口打开查看



我在afterloader事件设置了代码，但是没办法删除？代码如下：
With Tables("采购系统_tb.1.3.1")                      \'去除多余行与列
    For i As Integer = 9 To 0
        .Rows(i).delete()
    Next
    For j As Integer = 9 To 7
        .Cols(j).delete()
    Next
End With
--  作者：有点甜
--  发布时间：2019/5/26 15:12:00
--  

对于行，删除，参考

 

DataTables("表a").deletefor("第一列 is null")

 

多余列，隐藏即可，如

 

For Each c As Col In Tables("表A").Cols
    If c.Table.findrow(c.name & " is not null") >= 0 Then
        c.visible = True
    Else
        c.visible = False
    End If
Next