Insert Command Works Initially, but not after custom column styles

[bigmelon]

This code works for the insert:

Public Class Cardio
Inherits System.Windows.Forms.Form
Dim DS As New DataSet
Dim DA As New SqlDataAdapter
Dim cnn As New SqlConnection("Server=*;Uid=*;" & _
"pwd=*;Database=*;")
Private Sub Cardio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblName.Text = Names

DA.SelectCommand = New SqlCommand
With DA.SelectCommand
.Connection = cnn
.CommandType = CommandType.StoredProcedure
.CommandText = "Cardio"
.Parameters.Clear()
.Parameters.Add("@Surg", Surg)
End With

'DA.FillSchema(DS, SchemaType.Source, "Test")
DA.Fill(DS, "Test")

dgCardio.SetDataBinding(DS, "Test")

''This is where I insert the custom column styles

DA.InsertCommand = New SqlCommand
With DA.InsertCommand
.Connection = cnn
.CommandType = CommandType.StoredProcedure
.CommandText = "CardioIns"
.Parameters.Clear()
.Parameters.Add("@Surg", Surg)
.Parameters.Add("@Pleg_time", SqlDbType.DateTime)
.Parameters("@Pleg_time").SourceColumn = "Time"
.Parameters.Add("@Type", SqlDbType.VarChar, 50)
.Parameters("@Type").SourceColumn = "Type"
.Parameters.Add("@Route", SqlDbType.VarChar, 50)
.Parameters("@Route").SourceColumn = "Route"
.Parameters.Add("@Temp", SqlDbType.Float, 8)
.Parameters("@Temp").SourceColumn = "Temp"
.Parameters.Add("@K", SqlDbType.VarChar, 10)
.Parameters("@K").SourceColumn = "K+"
.Parameters.Add("@Mg", SqlDbType.VarChar, 10)
.Parameters("@Mg").SourceColumn = "Mg++"
.Parameters.Add("@FlowRate", SqlDbType.VarChar, 10)
.Parameters("@FlowRate").SourceColumn = "Flow Rate"
.Parameters.Add("@Dose", SqlDbType.VarChar, 10)
.Parameters("@Dose").SourceColumn = "Dose cc's"
.Parameters.Add("@Cor", SqlDbType.VarChar, 10)
.Parameters("@Cor").SourceColumn = "Cor. Sinus"

End With

Then when I alter the custom datagrids columns below the update no longer works

'Stuff
Dim dt As New DataTable("dt")
DA.Fill(dt)

'Clear any existing TableStyles
CGrid.ClearTableStyles(dgCardio)

'Create a TableStyle to which ColumnStyles will be added
Dim ts As DataGridTableStyle = CGrid.GetTableStyle(dt)

'Set the MappingName for the table style.
ts.MappingName = "Test"

'TextBox Column
Dim Num As Integer = GetLongestField(DS, "Test", "Time", dgCardio, 0)
Dim cs1 As New CGridTextBoxStyle("Time", Num, _
HorizontalAlignment.Left, False, _
"Time", String.Empty, "")
'Assign new width to DataGrid column.
CGrid.AddColumn(ts, cs1)


'ComboBox Column
Dim Items() As String = {"Blood", "Crystalloid"}
Dim cs2 As New CGridComboBoxStyle("Type", 60, HorizontalAlignment.Left, _
"Type", "", _
Items, ComboBoxStyle.DropDownList)
CGrid.AddColumn(ts, cs2)

'ComboBox Column
Dim Item() As String = {"Antegrade", "Antegrade w/ Grafts", "Left Main Ostium", _
"Retrograde", "Retrograde w/ Grafts", "Right Main Ostium", _
"Vein Grafts"}
Dim cs3 As New CGridComboBoxStyle("Route", 110, HorizontalAlignment.Left, _
"Route", "", _
Item, ComboBoxStyle.DropDownList)
CGrid.AddColumn(ts, cs3)

'TextBox Column
Dim Num2 As Integer = 10 + GetLongestField(DS, "Test", "Temp", dgCardio, 0)
Dim cs4 As New CGridTextBoxStyle("Temp", Num2, _
HorizontalAlignment.Left, False, _
"Temp", String.Empty, "")
CGrid.AddColumn(ts, cs4)

'TextBox Column
Dim Num3 As Integer = GetLongestField(DS, "Test", "K+", dgCardio, 0)
Dim cs5 As New CGridTextBoxStyle("K+", Num3, _
HorizontalAlignment.Left, False, _
"K+", String.Empty, "")
CGrid.AddColumn(ts, cs5)

'TextBox Column
Dim Num4 As Integer = 15 + GetLongestField(DS, "Test", "Mg++", dgCardio, 0)
Dim cs6 As New CGridTextBoxStyle("Mg++", Num4, _
HorizontalAlignment.Left, False, _
"Mg++", String.Empty, "")
CGrid.AddColumn(ts, cs6)

'TextBox Column
Dim Num5 As Integer = 25 + GetLongestField(DS, "Test", "Flow Rate", dgCardio, 0)
Dim cs7 As New CGridTextBoxStyle("Flow Rate", Num5, _
HorizontalAlignment.Left, False, _
"Flow Rate", String.Empty, "")
CGrid.AddColumn(ts, cs7)

'TextBox Column
Dim Num6 As Integer = 25 + GetLongestField(DS, "Test", "Dose cc's", dgCardio, 0)
Dim cs8 As New CGridTextBoxStyle("Dose cc's", Num6, _
HorizontalAlignment.Left, False, _
"Dose cc's", String.Empty, "")
CGrid.AddColumn(ts, cs8)

'TextBox Column
Dim Num7 As Integer = 50 + GetLongestField(DS, "Test", "Cor. Sinus", dgCardio, 0)
Dim cs9 As New CGridTextBoxStyle("Cor. Sinus", Num7, _
HorizontalAlignment.Left, False, _
"Cor. Sinus", String.Empty, "")
CGrid.AddColumn(ts, cs9)

'Set the TableStyle for the Grid
CGrid.SetGridStyle(Me.dgCardio, dt, ts)

Sorry for the lengthy post, but please take a look at it. Any suggestions would be greatly appreciated!

 

[bigmelon]

I also tried changing my insert like this, but it still doesn't work!

DA.InsertCommand = New SqlCommand
With DA.InsertCommand
.Connection = cnn
.CommandType = CommandType.StoredProcedure
.CommandText = "CardioIns"
.Parameters.Clear()
.Parameters.Add("@Surg", Surg)
.Parameters.Add("@Pleg_time", SqlDbType.DateTime, 8, "Pleg_Time").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 0)
.Parameters.Add("@Type", SqlDbType.VarChar, 50, "Type").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 1)
.Parameters.Add("@Route", SqlDbType.VarChar, 50, "Route").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 2)
.Parameters.Add("@Temp", SqlDbType.Float, 8, "Temp").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 3)
.Parameters.Add("@K", SqlDbType.VarChar, 10, "K+").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 4)
.Parameters.Add("@Mg", SqlDbType.VarChar, 10, "Mg++").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 5)
.Parameters.Add("@FlowRate", SqlDbType.VarChar, 10, "Flow Rate").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 6)
.Parameters.Add("@Dose", SqlDbType.VarChar, 10, "Dose cc's").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 7)
.Parameters.Add("@Cor", SqlDbType.VarChar, 10, "Cor. Sinus").Value = dgCardio.Item(dgCardio.CurrentRowIndex, 8)
end with

I think it has something to do with the datatable and dataset using the same adapter but i'm not sure. Advice Please!