主题：一键清空多表的数据代码

求一键清空多表的数据代码,清空后保留行,清空的只是表中的数据

systemready = False
For Each dr As DataRow In DataTables("表A").DataRows
    For Each dc As DataCol In DataTables("表A").DataCols
        dr(dc.name) = Nothing
    Next
Next
systemready = True

一键清空多表呢,还是一个表一组这个代码

systemready = False
Dim tbnames() As String = {"表A", "表B"}
For Each tbname As String In tbnames
    For Each dr As DataRow In DataTables(tbname).DataRows
        For Each dc As DataCol In DataTables(tbname).DataCols
            dr(dc.name) = Nothing
        Next
    Next
Next
systemready = True

使用以上代码出现

systemready = False
Dim tbnames() As String = {"表A", "表B"}
For Each tbname As String In tbnames
    For Each dr As DataRow In DataTables(tbname).DataRows
        For Each dc As DataCol In DataTables(tbname).DataCols
            If dc.Expression = "" Then
                dr(dc.name) = Nothing
            End If
        Next
    Next
Next
systemready = True

清空完,逻辑列方框里变成了黑色小方柜,不没有影响

保存数据提示

保留空行的意义？分享一下。

 

systemready = False
Dim tbnames() As String = {"表A", "表B"}
For Each tbname As String In tbnames
    For Each dr As DataRow In DataTables(tbname).DataRows
        For Each dc As DataCol In DataTables(tbname).DataCols
            If dc.Expression = "" Then
                If dc.IsBoolean Then
                    dr(dc.name) = False
                Else
                    dr(dc.name) = Nothing
                End If
            End If
        Next
    Next
Next
systemready = True