ms access - Moving into earlier cell of DataGridView VB.Net -
i writing application using datagridview in vb.net
on datagridview, cell(column(0),row(0)) used searching database item code. want when item code not found in database, cursor should on cell(column(0),row(0)), cell used searching item code.
below code have :
private sub dgv1_cellendedit(byval sender object, byval e system.windows.forms.datagridviewcelleventargs) handles dgv1.cellendedit dim flag_cell_edited boolean dim currentrow integer dim currentcolumn integer if e.columnindex = 0 flag_cell_edited = true currentrow = e.rowindex currentcolumn = e.columnindex call koneksi() cmd = new oledbcommand("select nama_matakuliah, sks tbmatakuliah kode_mk = '" & dgv1.rows(e.rowindex).cells(0).value & "' , program_studi = '" & txt_ps.text & "'", conn) dr = cmd.executereader dr.read() if dr.hasrows dgv1.rows(e.rowindex).cells(1).value = dr.item("nama_matakuliah") dgv1.rows(e.rowindex).cells(2).value = dr.item("sks") dgv1.rows(e.rowindex).cells(1).readonly = true dgv1.rows(e.rowindex).cells(2).readonly = true dgv1.rows(e.rowindex).cells(3).selected = true else msgbox("kode mata kuliah " & dgv1.rows(e.rowindex).cells(0).value & " tidak ditemukan", msgboxstyle.okonly, "pengisian kartu hasil studi") dgv1.currentcell = dgv1(currentcolumn, currentrow) flag_cell_edited = false end if end if end sub
really need help.. please me...
maybe this?
private sub dgv1_cellendedit(byval sender object, byval e system.windows.forms.datagridviewcelleventargs) handles dgv1.cellendedit ' dim flag_cell_edited boolean dim lastrow integer dim lastcolumn integer dim currentrow integer dim currentcolumn integer ' lastcolumn = e.columnindex lastrow = e.rowindex if e.columnindex = 0 flag_cell_edited = true currentrow = e.rowindex currentcolumn = e.columnindex call koneksi() cmd = new oledbcommand("select nama_matakuliah, sks tbmatakuliah kode_mk = '" & dgv1.rows(e.rowindex).cells(0).value & "' , program_studi = '" & txt_ps.text & "'", conn) dr = cmd.executereader dr.read() if dr.hasrows dgv1.rows(e.rowindex).cells(1).value = dr.item("nama_matakuliah") dgv1.rows(e.rowindex).cells(2).value = dr.item("sks") dgv1.rows(e.rowindex).cells(1).readonly = true dgv1.rows(e.rowindex).cells(2).readonly = true dgv1.rows(e.rowindex).cells(3).selected = true else msgbox("kode mata kuliah " & dgv1.rows(e.rowindex).cells(0).value & " tidak ditemukan", msgboxstyle.okonly, "pengisian kartu hasil studi") dgv1.currentcell = dgv1(currentcolumn, currentrow) flag_cell_edited = false dgv1.currentcell = dgv1(lastcolumn, lastrow) end if end if end sub
Comments
Post a Comment