Of course; just use a loop. Also: When deleting several columns, you should normally delete from right to left; otherwise, the wrong column may be deleted - if you delete column #3, column #4 becomes the new column #3, column #5 becomes column #4, etc. (I will not do this now, because I am not so sure about the logic of your program.)
local lnColumn, lcVariable
for lnColumn = 11 to 24
lcVariable = "mx" + transform(lnColumn)
if evaluate(lnCounter) > 0
ThisForm.Grid1.DeleteColumn(lnColumn)
endif
next>hi all,
>can any one create short and smooth these codes,
>
>IF (mx11)>0
>thisform.grid1.DeleteColumn(11)
>endif
>*
>IF (mx12)>0
>thisform.grid1.DeleteColumn(12)
>endif
>*
>*
>IF (mx13)>0
>thisform.grid1.DeleteColumn(13)
>endif
>*
>IF (mx14)>0
>thisform.grid1.DeleteColumn(14)
>endif
>*
>IF (mx15)>0
>thisform.grid1.DeleteColumn(15)
>endif
>
>IF (mx16)>0
>thisform.grid1.DeleteColumn(16)
>endif
>IF (mx17)>0
>thisform.grid1.DeleteColumn(17)
>endif
>IF (mx18)>0
>thisform.grid1.DeleteColumn(18)
>endif
>*
>IF (mx19)>0
>thisform.grid1.DeleteColumn(19)
>endif
>
>IF (mx20)>0
>thisform.grid1.DeleteColumn(20)
>endif
>IF (mx21)>0
>thisform.grid1.DeleteColumn(21)
>endif
>
>IF (mx22)>0
>thisform.grid1.DeleteColumn(22)
>endif
>IF (mx23)>0
>thisform.grid1.DeleteColumn(23)
>endif
>IF (mx24)>0
>thisform.grid1.DeleteColumn(24)
>endif
>ENDWITH
>
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
