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

Popular posts from this blog

c# - Validate object ID from GET to POST -

node.js - Custom Model Validator SailsJS -

php - Find a regex to take part of Email -