Visual Basic

    Private Function UpdateColumn(ByRef TableToUpdate As Microsoft.SqlServer.Management.Smo.Table, ByVal ColumnToAdd As System.Data.DataColumn, ByVal dt As System.Data.DataTable, ByVal VerifyTable As Microsoft.SqlServer.Management.Smo.Table) As Boolean<br />
        Dim UpdateNeeded As Boolean = False<br />
        Dim idx As Index<br />
        Dim col As Column<br />
        col = TableToUpdate.Columns(ColumnToAdd.ColumnName)<br />
<br />
        col.Nullable = ColumnToAdd.AllowDBNull<br />
        col.DataType = GetTypeOfData(ColumnToAdd)<br />
<br />
        If Not ColumnToAdd.DefaultValue.Equals(DBNull.Value) Then<br />
            col.AddDefaultConstraint("DF_" & col.Name)<br />
            col.DefaultConstraint.Text = ColumnToAdd.DefaultValue.ToString<br />
        End If<br />
<br />
        col.Identity = ColumnToAdd.AutoIncrement<br />
        If col.Identity Then<br />
            col.IdentityIncrement = ColumnToAdd.AutoIncrementStep<br />
            col.IdentitySeed = ColumnToAdd.AutoIncrementSeed<br />
        End If<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
''' Here is where i have problems<br />
''' Any Help in making this work would be greatly appreciated.<br />
''' I need this to Add key's(Primary and Index) if they are not there<br />
''' Delete it if it's not needed<br />
''' Or Change it if its needed<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
        Dim pkColumns() As DataColumn<br />
        pkColumns = dt.PrimaryKey<br />
<br />
        If pkColumns.Contains(ColumnToAdd) Or ColumnToAdd.Unique Then<br />
            For Each i As Index In TableToUpdate.Indexes<br />
                If Not i.IndexedColumns.Contains(ColumnToAdd.ColumnName) Then<br />
                    idx = New Index<br />
                    idx.Parent = TableToUpdate<br />
                    If pkColumns.Contains(ColumnToAdd) Then<br />
                        idx.Name = "PK_" & ColumnToAdd.ColumnName & "_" & dt.TableName<br />
                        idx.IndexKeyType = IndexKeyType.DriPrimaryKey<br />
                    Else<br />
                        idx.Name = "IDX_" & ColumnToAdd.ColumnName & "_" & dt.TableName<br />
                        idx.IndexKeyType = IndexKeyType.DriUniqueKey<br />
                    End If<br />
                    idx.IndexedColumns.Add(New IndexedColumn(idx, ColumnToAdd.ColumnName))<br />
                    UpdateNeeded = True<br />
                End If<br />
            Next<br />
        Else<br />
            If TableToUpdate.Indexes(0).IndexedColumns.Contains(ColumnToAdd.ColumnName) Then<br />
                '        Item exists but should not<br />
                TableToUpdate.Indexes(0).IndexedColumns.Remove(ColumnToAdd.ColumnName)<br />
                UpdateNeeded = True<br />
            End If<br />
        End If<br />
<br />
        For Each p As Microsoft.SqlServer.Management.Smo.Property In col.Properties<br />
            If Not p.Value.Equals(VerifyTable.Columns(ColumnToAdd.ColumnName).Properties(p.Name).Value) Then Return True<br />
        Next<br />
        Return UpdateNeeded<br />
<br />
    End Function