主题：请甜老师帮忙看下我错在哪里

 For Each dc As DataCol In DataTables("表A").DataCols
    If dc.IsNumeric = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Double))
    ElseIf dc.IsString = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(String))
    ElseIf dc.IsDate = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Date))
    ElseIf dc.IsBoolean = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Boolean))
    End If
Next