Need help again filtering List View

[crimmelcp]

Need help again filtering List View

Attached is a zip file
Contains 1 DBF and 1 Code Script on the code tab.

When the user opens the xdailog and clicks on the radio button,
I need the list view to filter.
Active employees = Active = "yes"
Inactive Employees = Active = "No"

Thanks
Charlie Crimmel

[MoGrace]

Re: Need help again filtering List View

Do you think that in the table displayed, showing Active/ Inactive as "yes/no" has any effect with the change event for the radio object that is using ".t./.f."?

[crimmelcp]

Re: Need help again filtering List View

No dont think so.
If I change the lines around line 130 by commenting out different filters the list does filter. I cannot get it to work with the Radio Buttons.

DIM vlv_pTableDef.Filter AS C = "(recno() > 0)" ' recno() > 0 is required in order to avoid showing deleted variables
'DIM vlv_pTableDef.Filter AS C = "Active = .T. .and.(recno() > 0)" ' recno() > 0 is required in order to avoid showing deleted variables
'DIM vlv_pTableDef.Filter AS C = "Active = .F. .and.(recno() > 0)" ' recno() > 0 is required in order to avoid showing deleted variables

[MoGrace]

Re: Need help again filtering List View

When the upper fields were still blank, clicking on a radio button to change it closed the XD. Maybe you need to set a default value for the radio first. Seems this happened to me when I tried to use them.

[crimmelcp]

Re: Need help again filtering List View

I Think I have it working

I changed the code in the select case section of code.

Thanks for your help
Charlie Crimmel

[MoGrace]

Re: Need help again filtering List View

I Think I have it working

I changed the code in the select case section of code.

Thanks for your help
Charlie Crimmel

Which line number was that? And what was the change - I want to make it work too! Its a great example.

[crimmelcp]

Re: Need help again filtering List View

the select case section starts around line 268
Also the Fiels Ctat and Active do not have to be in the Listview box for it to work.

'DIM vlv_pTableDef.TitleRow AS C = "Empnum|{AUTOSIZE}FName|{AUTOSIZE}LName|{AUTOSIZE}Craft|{AUTOSIZE}Crdesc|Cstat|Active"
DIM vlv_pTableDef.TitleRow AS C = "Empnum|{AUTOSIZE}FName|{AUTOSIZE}LName|{AUTOSIZE}Craft|{AUTOSIZE}Crdesc"

'Line 268 starts the select section.

IF a_dlg_button = "changedradio"
	Select
	Case vRadio = "Active Employees" 
		DIM vlv_pTableDef.Filter AS C = "Active = .T. .and.(recno() > 0)" ' recno() > 0 is required in order to avoid showing deleted variables
		vlv_Filter = "Active = .T."
		'ui_msg_box("Result","User selected option: "+mode)
		Mode = "Active Employees"
		vlv_CurrentSortField = "Empnum"
		vlv_CurrentSortDirection = "A"
		a_dlg_button = ""	
	Case vRadio = "Inactive Employees"
		DIM vlv_pTableDef.Filter AS C = "Active = .F. .and.(recno() > 0)" ' recno() > 0 is required in order to avoid showing deleted variables
		vlv_Filter = "Active = .F."
		'ui_msg_box("Result","User selected option: "+mode)
		Mode = "Inactive Employees"
		vlv_CurrentSortField = "Empnum"
		vlv_CurrentSortDirection = "A"
		a_dlg_button = ""	
	Case vRadio = "All Employees"
		DIM vlv_pTableDef.Filter AS C = "(recno() > 0)"	' recno() > 0 is required in order to avoid showing deleted variables
		vlv_Filter = ""
		'ui_msg_box("Result","User selected option: "+mode)		
		Mode = "All Employees"
		vlv_CurrentSortField = "Empnum"
		vlv_CurrentSortDirection = "A"
		a_dlg_button = ""	
	END SELECT
	vlv_pLV.RowView.Close()
	vlv_pLV.RowView = vlv_rs.OpenView(1, vlv_CurrentSortField, vlv_Filter)
	trace.WriteLn("Radio Button Select = " + var->mode)		
	a_dlg_button = ""	
end if

[crimmelcp]

Re: Need help again filtering List View

Can anyone figure out how to make a Logical Field ((Active)
to show up in the list box as a checkbox?

thanks
charlie crimmel

[MoGrace]

Re: Need help again filtering List View

In Lesson 8 for Check Box-List Box, the ^$ (or ^$$) directive adds a space to the beginning of the variable string that contains either blank or T based on what the user selected. Not that I know how to do it, but somewhere in there is the key for what to put in that position based on your field value.