vb6 - How to remove selected item from msflexgrid -


i using vb6 , in using msflexgrid want remove complete row selected user , once done automatically set focus textbox, while searching on internet useful problem when click on button remove rows first row header of flexgrid , don't want remove first row.

here code

private sub cmddell_click() dim integer      grdarticles 'the msflexgrid         if .rowsel <> 0 'check if there selected row             = .rowsel .rows - 2 'loop selected row las row                 .textmatrix(i, 0) = .textmatrix(i + 1, 0) 'set rows 1                 .textmatrix(i, 1) = .textmatrix(i + 1, 1)                 .textmatrix(i, 2) = .textmatrix(i + 1, 2)                 .textmatrix(i, 3) = .textmatrix(i + 1, 3)             next                 .rows = .rows - 1 'make rows 1 less         else             msgbox "selecet row delete!!!", vbexclamation         end if     end end sub 

if allow 1 row selected @ time need use

me.msflexgrid1.removeitem me.msflexgrid1.rowsel

if can have more 1 row selected (user clicks , drags select multiple) need determine range of rows selected , delete each row individually. code on page shows how start , end selected row. need loop in reverse when deleting rows.

http://www.vb-helper.com/howto_tell_flexgrid_rows_selected.html


Comments

Popular posts from this blog

c# - How Configure Devart dotConnect for SQLite Code First? -

java - Copying object fields -

c++ - Clear the memory after returning a vector in a function -