For i As Integer = 0 To Tables("AAAB").Cols.Count - 1
If i = Tables("AAAB").Cols.Count - 1 AndAlso Tables("AAAB").Cols(i).Caption <> tc.Name Then
sr = "AAAB" & Format(i,"00")
Dim Builder As New ADOXBuilder("ERP")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("AAAB")
.AddColumn(sr,ADOXType.Text) '增加备注列
End With
Builder.Close() '关闭ADOXBuilder
Continue For
End If
Next
请教老师，.AddColumn(sr,ADOXType.Text) '增加备注列，这行代码中的列名（sr），如何使用变量呢？
加好友 
发短信
Post By：2020/12/23 17:28:00 [只看该作者]
