增加列时总是出错,查过半天都查不出哪出问题了
‘’‘’‘’‘’是内部数据源,根据表数据进行增加列
Dim uu As Table = Tables("表列名")
For i As Integer = 0 To uu.Rows.count - 1
Dim nn As String = uu.Rows(i)("列名")
Dim nn1 As String = uu.Rows(i)("表名")
Dim nn2 = uu.Rows(i)("长度")
Dim Builder As New ADOXBuilder ‘’‘’‘’‘’是内部数据源
Builder.Open()
If uu.Rows(i)("类型") = "String" Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.string, 50)
End With
MessageBox.Show(1)
Else If uu.Rows(i)("类型") = "DateTime" Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.DateTime)
End With
MessageBox.Show(2)
Else If uu.Rows(i)("类型") = "Double" Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.Double)
End With
MessageBox.Show(3)
Else If uu.Rows(i)("类型") = "Text" Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.Text)
End With
MessageBox.Show(4)
Else If uu.Rows(i)("类型") = "Boolean" Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.Boolean)
End With
MessageBox.Show(6)
Else If uu.Rows(i)("类型") = "" And uu.Rows(i)("是否文本") = True Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.String, 50)
End With
MessageBox.Show(7)
Else If uu.Rows(i)("类型") = "" And uu.Rows(i)("是否文本") = False Then
With Builder.Tables(nn1)
.AddColumn(nn , ADOXType.Double)
End With
End If
Next
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq截图20220704111440.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-7/20227411403165107.png)