I have a datagridview that has a comboboxcell in a column and I'm having trouble retrieving the value from it. The comboboxcell has a different datasource from the other data on the datagridview. Can anybody tell me what I'm doing wrong? I only retrieve blank info from it using the code below:
Code:Private Sub DataGridView1_DefaultValuesNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) Handles DataGridView1.DefaultValuesNeeded Me.GetAPI() cmbAPI.DataSource = dsAPI.Tables("Well_Header") cmbAPI.ValueMember = "API" e.Row.Cells(0) = cmbAPI End SubCode:Public Sub GetDefaultVal() If FutWellType = "Production" Then prodStartDt = DataGridView1.Rows(lasRow).Cells(1).Value.ToString() 'StartDate prodEndDt = DataGridView1.Rows(lasRow).Cells(2).Value.ToString() 'EndDate prodIniRt = DataGridView1.Rows(lasRow).Cells(3).Value.ToString() 'InitialRate prodFinRt = DataGridView1.Rows(lasRow).Cells(4).Value.ToString() 'FinalRate prodDecRt = DataGridView1.Rows(lasRow).Cells(5).Value.ToString() 'DeclineRate prodDecTy = DataGridView1.Rows(lasRow).Cells(6).Value.ToString() 'DeclineType prodHypFac = DataGridView1.Rows(lasRow).Cells(7).Value.ToString() 'HypFactor prodGasOilRt = DataGridView1.Rows(lasRow).Cells(8).Value.ToString() 'GasOilRatio prodExtDt = DataGridView1.Rows(lasRow).Cells(9).Value.ToString() 'ExtendDate prodGasOil = DataGridView1.Rows(lasRow).Cells(10).Value.ToString() 'GasOil prodConFlVl = DataGridView1.Rows(lasRow).Cells(11).Value.ToString() 'ConstFlVol prodInitWtr = DataGridView1.Rows(lasRow).Cells(12).Value.ToString() 'InitialWater ElseIf FutWellType = "Injection" Then 'injAPI = DataGridView1.Rows(newRow).Cells(0).Value.ToString() injStartDt = DataGridView1.Rows(lasRow).Cells(1).Value.ToString() injEndDt = DataGridView1.Rows(lasRow).Cells(2).Value.ToString() injInitRt = DataGridView1.Rows(lasRow).Cells(3).Value.ToString() injFinRt = DataGridView1.Rows(lasRow).Cells(4).Value.ToString() injDeclineRt = DataGridView1.Rows(lasRow).Cells(5).Value.ToString() injDeclTyp = DataGridView1.Rows(lasRow).Cells(6).Value.ToString() injHypFactor = DataGridView1.Rows(lasRow).Cells(7).Value.ToString() injExtendDt = DataGridView1.Rows(lasRow).Cells(8).Value.ToString() End IfCode:Public Sub AutoFillRow() Dim cmdAutoFillRow, cmdAutoFillRowInj As New OleDbCommand cmdAutoFillRow.Connection = gConn cmdAutoFillRow.Transaction = rlBack cmdAutoFillRowInj.Transaction = rlBack If FutWellType = "Production" Then cmdAutoFillRow.CommandText = "INSERT INTO Param_Prod " _ & "(API, StartDate, EndDate, Reservoir, " _ & "InitialRate, FinalRate, DeclineRate, DeclineType, " _ & "HypFactor, ExtendDate, GasOilRatio, GasOil, " _ & "ConstFlVol, TemplateName, LastUpdated, InitialWater)" _ & "VALUES (@prAPI, @prStartDt, @prEndDt, '" & Resvr & "', " _ & "@prInitialRt, @prFinalRt, @prDeclineRt, @prDeclineTy, " _ & "@prHypFactor, @prExtendDate, @prGasOilRat, @prGasOil, " _ & "@prConstFlVol, '" & PrmName & "', 'Y', @prInitialWater)" cmdAutoFillRow.Parameters.AddWithValue("@prAPI", cmbAPI.Value.ToString()) cmdAutoFillRow.Parameters.AddWithValue("@prStartDt", prodStartDt) cmdAutoFillRow.Parameters.AddWithValue("@prEndDt", prodEndDt) cmdAutoFillRow.Parameters.AddWithValue("@prInitialRt", prodIniRt) cmdAutoFillRow.Parameters.AddWithValue("@prFinalRt", prodFinRt) cmdAutoFillRow.Parameters.AddWithValue("@prDeclineRt", prodDecRt) cmdAutoFillRow.Parameters.AddWithValue("@prDeclineTy", prodDecTy) cmdAutoFillRow.Parameters.AddWithValue("@prHypFactor", prodHypFac) cmdAutoFillRow.Parameters.AddWithValue("@prExtendDate", prodExtDt) cmdAutoFillRow.Parameters.AddWithValue("@prGasOilRt", prodGasOilRt) cmdAutoFillRow.Parameters.AddWithValue("@prGasOil", prodGasOil) cmdAutoFillRow.Parameters.AddWithValue("@prConstFlVol", prodConFlVl) cmdAutoFillRow.Parameters.AddWithValue("@prInitialWater", prodInitWtr) cmdAutoFillRow.ExecuteNonQuery() EndIf




Reply With Quote