How to solve this problem?

[newbie]

db-view: func[] [db-select [Name] tblcontact]



list_data: layout [


t: text-list data db-view [
probe face/picked ]

button "View" [val]


]

val: does[
value: reduce (t/picked)
value1: to-string value
;print value1


foreach [Name Phone_num] db-select/where [Name Phone_num] tblcontact [ Name = (value1)] [
name: [Name]
phone_num: [Phone_num]

print name
print phone_num
]

]

I have met some problem as I unable to display the result. Why can't I pass in the value1 into the foreach functions  Thank you..  

[Ashley]

You need to use compose:

Code:

foreach [Name Phone_num] db-select/where [Name Phone_num] tblcontact compose [Name = (value1)] [