以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这段是什么意思啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49576)
--  作者：viking
--  发布时间：2014/4/20 17:16:00
--  [求助]这段是什么意思啊？
Dim Filter As String
For Each dc As DataCol In DataTables("表A").DataCols
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & dc.Name & " Is Null"
Next
DataTables("表A").DeleteFor(Filter)
--  作者：E_Fox
--  发布时间：2014/4/20 17:53:00
--  
\'定义筛选字符串
Dim Filter As String
\'遍历 表A 所有列
For Each dc As DataCol In DataTables("表A").DataCols
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    \'设定 列名为空 的与条件字符口串
    Filter = Filter & dc.Name & " Is Null"
Next
\'删除 表A 中所有列为空的数据行
DataTables("表A").DeleteFor(Filter)
[此贴子已经被作者于2014-4-20 17:54:15编辑过]
--  作者：viking
--  发布时间：2014/4/20 17:54:00
--  

谢谢