主题：如何快速删除表中的"0"?

复制到命令窗口执行：

For Each c As  DataCol In DataTables("某表").DataCols
    If  c.IsNumerc Then
        For Each r As DataRow In DataTables("某表").DataCols
               If r.IsNull(c.Name) = False And r(c.Name) = 0 Then
                  r(c.Name) = Nothing
               End If
        Next
    End If
End IF

我把这个功能做到菜单中算了。