Hi,
I found out how to preselect a check box and mark it but I don't know how to compare between two Arrays. Here is an example of two arrays that I want to compare and mark any lines that first character is equal in both. Lets say that rvVariable2[0,0] = rvVariable1[0,0] then I want to mark the check box up front in the REPORTVIEW in the dialog.
Thanks
rvVariable2 = ArrDimension (3,3)
rvVariable2[0,0] = "3"
rvVariable2[0,1] = "3"
rvVariable2[0,2] = "4"
rvVariable2[1,0] = "2"
rvVariable2[1,1] = "3"
rvVariable2[1,2] = "4"
rvVariable2[2,0] = "3"
rvVariable2[2,1] = "4"
rvVariable2[2,2] = "4"
rvVariable1 = ArrDimension (3,3)
rvVariable1[0,0] = "2"
rvVariable1[0,1] = "3"
rvVariable1[0,2] = "4"
rvVariable1[1,0] = "2"
rvVariable1[1,1] = "3"
rvVariable1[1,2] = "4"
rvVariable1[2,0] = "3"
rvVariable1[2,1] = "4"
rvVariable1[2,2] = "4"
; Dialog Callback subroutine.
#DefineSubroutine RvClickExProc(RvClickEx_Handle,RvClickEx_Event,RvClickEx_Name,RvClickEx_EventInfo,RvClickEx_ChangeInfo)
switch RvClickEx_Event ; Switch based on Dialog Message type
case @deInit ; Standard Initialization message
DialogProcOptions(RvClickEx_Handle,@dePbPush,@TRUE)
i=0
x=0
rvVariable1 = ObjectType ("ARRAY", rvVariable1)
;foreach test in rvVariable2
; if test == rvVariable1[x,i] then DialogControlSet( RvClickEx_Handle, "ReportView_1",@dcCheck,rvVariable1[x,i])
i=i+1
;next
return(@retDefault)
case @dePbPush
if RvClickEx_Name == "PushButton_OK" ; O
aChecked = DialogControlGet( RvClickEx_Handle, "ReportView_1",@dcGetChecked )
return(@retDefault)
; elseif RvClickEx_Name == "PushButton_Cancel" ; Cancel
; return(@retDefault)
endif ; RvClickEx_Name
return(@retDefault)
endswitch ; RvClickEx_Event
return(@retDefault)
#EndSubroutine ; End of Dialog Callback RvClickExCallbackProc
RvClickExFormat=`WWWDLGED,6.2`
RvClickExCaption=`Reportview Click Example`
RvClickExX=081
RvClickExY=099
RvClickExWidth=304
RvClickExHeight=166
RvClickExNumControls=003
RvClickExProcedure=`RvClickExProc`
RvClickExFont=`DEFAULT`
RvClickExTextColor=`DEFAULT`
RvClickExBackground=`DEFAULT,DEFAULT`
RvClickExConfig=0
RvClickEx001=`077,145,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,@csDefButton,DEFAULT,DEFAULT,DEFAULT`
RvClickEx002=`185,145,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
RvClickEx003=`011,023,282,110,REPORTVIEW,"ReportView_1",rvVariable1,DEFAULT,DEFAULT,30,@csFullSel|@csNoHeader|@csColCheck,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("RvClickEx")
rvVariable1 = ObjectType ("ARRAY", rvVariable1)
exit