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