主题：总分唯一排名代码问题

Builder.Open() '打开ADOXBuilder

Dim sm As String = e.Form.Controls("新增列").Value '指定列 

If DataTables("表A").Datacols.Contains(sm) = False Then '先判断是否重复'       

    With Builder.Tables("表A") 

        .AddColumn(sm , ADOXType.String, 20) '增加字符列,长度为20  

    End With

    MessageBox.Show("列已新增成功，请重新打开项目!", "提示!")

Else

    MessageBox.Show("列已存在，不能重复新增!", "提示!")

End If

Builder.Close() '关闭ADOXBuilder

修改后的代码