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
Post a Comment