以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表格数量  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115923)

--  作者:114039247
--  发布时间:2018/3/16 16:35:00
--  表格数量
判断 包含有带“订单”的datatable表的 数量



--  作者:有点甜
--  发布时间:2018/3/16 16:54:00
--  
Dim count As Integer = 0
For Each t As Table In Tables
    If t.name.Contains("表") Then
        count += 1
    End If
Next
msgbox(count)