Salam,
Mohon Bantuan Rekan Millis semuanya,
Sy sedang membuat comboboxcolumn dalam datagridview, dan bisa berjalan
Pertama saya rubah DataGridviev collection-nya sesuai kebutuhan dengan
menambahkan satu kolom ber type DataGridViewComboBoxColumn
Lalu coding-nya spt di bawah ini :
'=================================================================
Private Sub Frm_Flushing_10_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim ComboBahan As DataGridViewComboBoxColumn
ComboBahan = DGV1.Columns("ComboTanky")
Dim ds_Cmb As DataSet
Dim dv_Cmb As New DataView
ds_Cmb = oBahan.GetDsCombo()
dv_Cmb = ds_Cmb.Tables(0).DefaultView
dv_Cmb.Sort = "TankyName"
ComboBahan.DataSource = dv_Cmb
ComboBahan.DisplayMember =
dv_Cmb.Table.Columns("TankyName").ColumnName.ToString
ComboBahan.ValueMember = dv_Cmb.Table.Columns("TankyNo").ColumnName.ToString
End Sub
Private Sub DGV1_EditingControlShowing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) _
Handles DGV1.EditingControlShowing
Dim cb As ComboBox = TryCast(e.Control, ComboBox)
If cb IsNot Nothing Then
RemoveHandler cb.SelectedIndexChanged, AddressOf _
DGV1_SelectedIndexChanged
Select Case DGV1.CurrentCell.ColumnIndex
Case 0 'Position / index of ComboBoxcoloumn at DatagridView
AddHandler cb.SelectedIndexChanged, _
AddressOf DGV1_SelectedIndexChanged
Case 4
AddHandler cb.SelectedIndexChanged, _
AddressOf DGV1_SelectedIndexChanged
End Select
End If
End Sub
Private Sub DGV1_SelectedIndexChanged(ByVal sender As Object, _
ByVal e As EventArgs)
Try
Dim comboBox1 As ComboBox = CType(sender, ComboBox)
If DGV1.CurrentCell.ColumnIndex = 0 Then
DGV1.Rows(DGV1.CurrentRow.Index).Cells(1).Value = comboBox1.SelectedValue
Ds4Save.Tables(0).Rows(DGV1.CurrentRow.Index)("IDTankyBlending") =
ComboBox1.SelectedValue
Ds4Save.Tables(0).Rows(DGV1.CurrentRow.Index)("NoFlushing") =
Txt_NoFlush.Text.Trim
End If
If DGV1.CurrentCell.ColumnIndex = 4 Then
DGV1.Rows(DGV1.CurrentRow.Index).Cells(4).Value = comboBox1.Text
DGV1.Rows(DGV1.CurrentRow.Index).Cells(3).Value = comboBox1.SelectedValue
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'=================================================================
Masalah datang ketika saya berusaha mengapikasikan dataset ke datagridviewnya
DGV1.DataSource = Ds4Save.Tables(0)
1. Dengan sendirinya index-index kolom dari datagridview berubah
.
Baik, Sampai disini saya bisa menyesuaikan perintah2 dengan perubahan
indeks kolom-kolom itu.
2. Saya tidak dapat memasukkan nilai comboBox1.SelectedValue nya ke kolom
sebelahnya
Ada yg bisa membantu?
Terimakasih sebelumnya
