'定义筛选字符串
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编辑过]