如何正確填充VB.net datagridview組合框

我在vb.Net 2008中創建了一個帶有組合框的datagridview控件。在下面的代碼中，我檢索多行數據並配置我的datagrid以正確顯示數據。對於返回的所有行，我可以在datagrid中填充每行的組合框，沒有任何問題。如何正確填充VB.net datagridview組合框

當我嘗試在爲特定記錄檢索數據時自動選擇值時，所有組合框都錯誤地使用相同的值填充。

在下面的代碼中，「填充網格組合」代碼表示我如何將值加載到組合框中。 '填充特定記錄'代碼是我相信我遇到問題的地方。爲什麼所有記錄的組合框都返回相同的值？我知道我的循環是正確的，因爲非組合框被正確填充。

'Populate the Grid Combo 
      conCombo.Open(sConnectionString) 

     'Populate the Referral Reason combo box 
     sSQL = "SELECT Referral_Reason_Id, Referral_Reason FROM Referral_Reason WHERE DELETED = FALSE ORDER BY SortOrder" 

     cmdCombo = New ADODB.Command 
     cmdCombo.ActiveConnection = conCombo 
     cmdCombo.CommandText = sSQL 
     rsCombo = cmdCombo.Execute 

     i = 0 
     Do While i < dgPPV.RowCount 
      Do While Not rsCombo.EOF 
       Dim dgvcc As DataGridViewComboBoxCell 
       dgvcc = dgPPV.Rows(i).Cells(3) 
       dgvcc.Items.Add(New MyListItem(rsCombo.Fields(1).Value, rsCombo.Fields(0).Value)) 
       rsCombo.MoveNext() 
      Loop 
      rsCombo.MoveFirst() 
      i = i + 1 
     Loop 

     If rsCombo.State Then rsCombo.Close() 
     If conCombo.State Then conCombo.Close() 
     If cmdCombo.State Then cmdCombo.ActiveConnection = Nothing 


'Populate specific record 
     Sub GetPPVGridData() 

     Dim i As Integer 

     CloseConnectionString() 
     con.Open(sConnectionString) 

     sSQL = "SELECT Policy.PolicyDescription, Referral_Reason.Referral_Reason, ERS_Outcome.Outcome_Description, Audit_Outcome.Comment " 
     sSQL = sSQL & "FROM ((Audit_Outcome INNER JOIN Referral_Reason ON Audit_Outcome.Referral_Reason_Id = Referral_Reason.Referral_Reason_Id) INNER JOIN Policy ON Audit_Outcome.Policy_Id = Policy.Policy_ID) INNER JOIN ERS_Outcome ON Audit_Outcome.Outcome_Id = ERS_Outcome.Outcome_Id " 
     sSQL = sSQL & "WHERE Audit_Outcome.Referral_Id = " & lblReferralId.Text 

     cmd = New ADODB.Command 
     cmd.ActiveConnection = con 
     cmd.CommandText = sSQL 
     rs = cmd.Execute 

     Do While Not rs.EOF 
      For i = 0 To dgPPV.RowCount - 1 
       If dgPPV.Rows(i).Cells("dgPPVDescription").Value = rs.Fields(0).Value Then 
        dgPPV.Rows(i).Cells("dgCheckPPV").Value = True 
        dgPPV.Rows(i).Cells("dgPPVDescription").Value = rs.Fields(0).Value 
        dgPPV.Rows(i).Cells("dgPPVReferralReason").Value = rs.Fields(1).Value 
        dgPPV.Rows(i).Cells("dgPPVOutcome").Value = rs.Fields(2).Value 
        dgPPV.Rows(i).Cells("dgPPVComment").Value = rs.Fields(3).Value 
       End If 
      Next 
      rs.MoveNext() 
     Loop 
     CloseConnectionString() 

    End Sub

任何意見是非常感謝！

來源

2013-02-27 user2116905

我想通了。我改變了將值讀入組合框的方式。我從使用我喜歡的（記錄集）切換到數據讀取器。更簡單，更少的代碼。

 oConn.Open() 
    oCmdSelect.CommandText = "SELECT Referral_Reason_Id, Referral_Reason FROM Referral_Reason WHERE DELETED = FALSE ORDER BY SortOrder" 
    oCmdSelect.Connection = oConn 
    oReader = oCmdSelect.ExecuteReader 

    While oReader.Read 
     dgPPVReferralReason.ValueMember = oReader.Item(0) 
     dgPPVReferralReason.DisplayMember = oReader.Item(1).ToString 
     dgPPVReferralReason.Items.Add(oReader.Item(1).ToString) 
    End While 

    oConn.Close() 
    If oConn.State Then oConn.Close()

來源

2013-02-28 12:43:23 user2116905

如何正確填充VB.net datagridview組合框

回答

相關問題