Hiding a column in Grid

[Pat Bremkamp]

Re: Hiding a column in Grid

Chandran,

If the gridlinker approach works for you, then it might be the easiest way.

Say the parent grid is grid1 and the child is grid2

First, if your parent grid, Grid1, has a search component, then you can get the value typed into the search by looking at the AfterSearch event and getting the SearchDataSubmitted value of the age field. In the event, set a session variable equal to this value

session.age=SearchDataSubmitted.Age

Then in the page code, look for the section that displays the grid in the body of the page and use Xbasic to make that display or not

 
<%a5 if val(session.age)>18 %>
<table>
<tr><td><%A5 ?x_Grid2.Output.Body.UpdateErrors %></td></tr>
<tr><td><%A5 ?x_Grid2.Output.Body.Grid_HTML %></td></tr>
</table>
<%a5 end if %>

Pat

[chandran]

Re: Hiding a column in Grid

Thanks for your detailed response. I had almost given up and exploring other options.

The web component is named: srch_prm.a5wcmp.
It is inserted in schl08_prm_compare.a5w

Srch_prm.a5wcmp has a search box where in the user keys in the age to get data applicable for that age. The data searched are presented in a grid.
I am attaching a copy of the a5w page code.

Please let me know if this information is enough.

I tried a grid linker and it works well. I am able to get the desired data. But they are in two grids, placed one above the other. If I am able to hide the lower grid if the age keyed in is >18 it is fine.

I can use any one of the above as long as it works.

Please help.

Thanks,

[Pat Bremkamp]

Re: Hiding a column in Grid

Chandran,

You may be making this more difficult than it needs to be. Here is code that works in one of my pages. I'm showing the whole component generation so you will see how it fits. By the way, are you sure that variable srch_prm actually exists at the time you are testing for it?

 
<%A5
Delete tmpl_Co_List
DIM tmpl_Co_List as P
tmpl_Co_List = a5w_load_component("Co_List")
with tmpl_Co_List
componentName = "Co_List"
'==== filter and hide columns with blank labels ====
 .DBF.filter = "Li_Id=" + s_quote(session.Li.Id)
'==== get the user defined labels
dim tbl as P
tbl=table.open("[PathAlias.ADB_Path]\lists.dbf")
tbl.index_primary_put("Li_Id")
vRecNo=tbl.fetch_find(session.Li.Id)
if alltrim(tbl.Li_Co_Ul01)=""
 field_info[4].column.hide=.t.
else
 field_info[4].column.heading=alltrim(tbl.Li_Co_Ul01)
end if
if alltrim(tbl.Li_Co_Ul02)=""
 field_info[5].column.hide=.t.
else
 field_info[5].column.heading=alltrim(tbl.Li_Co_Ul02)
end if
tbl.close()
'==== end of filter and hide columns ====
end with 
delete x_Co_List
dim x_Co_List as p
tmpl_Co_List.request = request
tmpl_Co_List.session = session
tmpl_Co_List.response = response
tmpl_Co_List.serversetting = serversetting
x_Co_List = a5w_run_Component(tmpl_Co_List)
if x_Co_List.RedirectURL <> "" then 
 response.redirect(x_Co_List.redirectURL)
 end
end if 
?x_Co_List.Output.Head.JavaScript
?x_Co_List.Output.Head.CSS_Link

Pat

[chandran]

Re: Hiding a column in Grid

I did correct the typo before testing.

The error is after correcting the typo

[NoeticCC]

Re: Hiding a column in Grid

Cripes I am going blind!!!

It's end WITH not end WIDTH!

[NoeticCC]

Re: Hiding a column in Grid

I changed the code as given by you:
with tmpl_srch_prm
componentName = "srch_prm"
if eval_valid("srch_prm") = .t. then
with tmpl_srch_prm.field_info[16]
if .TxtsrchAge = ">18"
.Column.Hide = .t.
else
field_info[16].Column.Hide =.f.
end if
end width
end if
end with

I am still getting the same error message

I haven't checked the rest of the code but the bit in bold, since it already is within "with tmpl_srch_prm" it looks like it needs to just be field_info[16].

[chandran]

Re: Hiding a column in Grid

I changed the code as given by you:
with tmpl_srch_prm
componentName = "srch_prm"
if eval_valid("srch_prm") = .t. then
with tmpl_srch_prm.field_info[16]
if .TxtsrchAge = ">18"
.Column.Hide = .t.
else
field_info[16].Column.Hide =.f.
end if
end width
end if
end with

I am still getting the same error message


Please help.

Thanks,

[NoeticCC]

Re: Hiding a column in Grid

I did change the code as below:

----------------------------------------------------------------
with tmpl_srch_prm
componentName = "srch_prm"
if eval_valid("srch_prm") = .t. then
with tmpl_srch_prm.field_info[16]
if .TxtsrchAge = ">18"
.Column.Hide = .t.
else
field_info[16].Column.Hide =.f.
end if
end width
end if
end with

Fixed by doing as the error message says, e.g. add another end with (bold)

[chandran]

Re: Hiding a column in Grid

I did change the code as below:

----------------------------------------------------------------
with tmpl_srch_prm
componentName = "srch_prm"
if eval_valid("srch_prm") = .t. then
with tmpl_srch_prm.field_info[16]
if .TxtsrchAge = ">18"
.Column.Hide = .t.
else
field_info[16].Column.Hide =.f.
end if

end if
end with
---------------------------------------------------------------------

When I execute the file, I get the following message:

500 Internal Server Error
"Script Error
Error:Missing END WITH command."

Please let me know the mistake.

Thanks,

[DOntquIT]

Re: Hiding a column in Grid

with tmpl_srch_prm
comp
if eval_valid("srch_prm") = .t. then
if srch_prm > "18" then
field_info[16].Column.Hide =.t.
else
field_info[16].Column.Hide =.f.
end if
end if
end with

chandran,try this way.

with tmpl_audit_verif
componentName = "audit_verif"

if eval_valid("srch_prm") = .t. then
with tmpl_audit_verif.field_info[14]
.Fieldname = "actualpercent"
.Column.Hide = .t.
end with
end if
end with

[chandran]

I have used a code suggested in this forum to hide a column in Grid (A5. Ver 7). The suggestion and help was given by Martin Harzempa and Steve Woods. The code was:

if eval_valid("cp_c3_S_AGE") = .t. then
if cp_c3_S_AGE > "19" then
field_info[9].Column.Hide =.t.
else
field_info[9].Column.Hide =.f.
end if
end if

I am recreating the same grid now in Alpha Five Version 9. The code does not hide the column as before. The code I am using now is given below:

with tmpl_srch_prm
comp
if eval_valid("srch_prm") = .t. then
if srch_prm > "18" then
field_info[16].Column.Hide =.t.
else
field_info[16].Column.Hide =.f.
end if
end if
end with

What could have gone wrong? Early response will help me complete my job.
Thanks,