Sub display
display_x(scv2)
display_x(scv3)
display_x(scv4)
display_x(scv5)
display_x(scv6)
End Sub
Sub display_x (scv As ScrollView)
Dim myEditText As EditText
Dim myCheckBox As CheckBox
Dim i As Int
Dim dummyET As String
Dim dummyCB As String
For i = 0 To scv.Panel.NumberOfViews -1
myEditText = scv.Panel.GetView(i)
dummyET = myEditText.Tag
myCheckBox = scv.Panel.GetView(i)
dummyCB = myCheckBox.Tag
If dummyET.Length > 0 OR dummyCB.Length > 0 Then
If scv.Panel.GetView(i) Is EditText Then
If cursor1.GetString(myEditText.Tag) <> "?" Then
myEditText.Text = cursor1.GetString(myEditText.Tag)
Else
myEditText.Text = ""
End If
End If
If scv.Panel.GetView(i) Is CheckBox Then
If cursor1.GetString(myCheckBox.Tag) = 1 Then
myCheckBox.Checked = True
Else If cursor1.GetString(myCheckBox.Tag) = 0 Then
myCheckBox.Checked = False
End If
End If
End If
Next
End Sub