the code:
......
For i=0 To Pnum-1
Dim pnltest As Panel
pnltest.Initialize("pnlTest")
Lmc(i).Initialize("Lmc")
Lmc(i).TextSize=16
Lmc(i).TextColor=Colors.Black
Lmc(i).Text=XM(i,1)
Lmc(i).Gravity=Gravity.CENTER
pnltest.AddView(Lmc(i),0,3,120,40)
Cmd(i).Initialize("Cmd")
Cmd(i).InputType=Cmd(i).INPUT_TYPE_DECIMAL_NUMBERS
Cmd(i).TextSize = 20
Cmd(i).TextColor =Colors.Black
Cmd(i).Gravity=Gravity.LEFT+Gravity.BOTTOM
Cmd(i).Tag=i
pnltest.AddView(Cmd(i),Lmc(i).Left+Lmc(i).Width+10,2,150,50)
If Lmc(i).Text.IndexOf("snow")>=0 Then
pnltest.Visible=False
End If
scvYq.Panel.AddView(pnltest,0,40+50*H1,100%x,50)
Next
''''''
if lmc(5).text="rain" then
lmc(5).parent.visible=true
end if
:sign0163:
......
For i=0 To Pnum-1
Dim pnltest As Panel
pnltest.Initialize("pnlTest")
Lmc(i).Initialize("Lmc")
Lmc(i).TextSize=16
Lmc(i).TextColor=Colors.Black
Lmc(i).Text=XM(i,1)
Lmc(i).Gravity=Gravity.CENTER
pnltest.AddView(Lmc(i),0,3,120,40)
Cmd(i).Initialize("Cmd")
Cmd(i).InputType=Cmd(i).INPUT_TYPE_DECIMAL_NUMBERS
Cmd(i).TextSize = 20
Cmd(i).TextColor =Colors.Black
Cmd(i).Gravity=Gravity.LEFT+Gravity.BOTTOM
Cmd(i).Tag=i
pnltest.AddView(Cmd(i),Lmc(i).Left+Lmc(i).Width+10,2,150,50)
If Lmc(i).Text.IndexOf("snow")>=0 Then
pnltest.Visible=False
End If
scvYq.Panel.AddView(pnltest,0,40+50*H1,100%x,50)
Next
''''''
if lmc(5).text="rain" then
lmc(5).parent.visible=true
end if
:sign0163: