DataGridView 使用DataGridViewComboBoxCell方法

Private Sub dgvPROD_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvPROD.CellEndEdit

Select Case dgvPROD.CurrentCell.OwningColumn.Name

Case "upNAME"

dgvPROD.Item("sbPPNO", e.RowIndex).Value = dgvPROD.Item("upNAME", e.RowIndex).Value

dgvPROD.Item("ppNAME", e.RowIndex).Value = dgvPROD.Item("upNAME", e.RowIndex).FormattedValue

End Select

End Sub

Private Sub dgvPROD_EditingControlShowing1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvPROD.EditingControlShowing

If dgvPROD.CurrentCell.OwningColumn.Name = "upNAME" Then

With CType(dgvPROD.CurrentCell, DataGridViewComboBoxCell)

.DataSource = ArrayComBox.ComBox2Item("Select ppNAME,ppNUMB From ProdPlace Where ppANSW='" &

dgvPROD.CurrentRow.Cells("sbPDNO").Value.ToString & "' Order by ppSORT")

.DisplayMember = "DisplayValue"

.ValueMember = "ValueData"

.InheritedStyle.BackColor = Color.Transparent

End With

End If

End Sub

優點:可動態隨row而異動cellvALUE

缺點:電腦太低階,會反應慢