here is my code for both activities
Sub Globals
Dim PleaseChoose2 As Button
Dim strCourseName As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LAddCourse")
End Sub
Sub fetchNoOfHoles(Holes As String)
PleaseChoose2.text = Holes
End Sub
Sub PleaseChoose2_Click
StartActivity("NoOfHolesA")
End Sub
Sub Save2_Click
Main.SQL1.ExecNonQuery2("INSERT INTO course VALUES (?,?,?)", Array As Object(Null,strCourseName,18))
Activity.Finish
End Sub
Sub Discard2_Click
StartActivity("Course")
End Sub
Sub CourseNameET_TextChanged (Old As String, New As String)
strCourseName = New
End Sub
--------------------------------------------------------------------
and i want to put the saved course in this:
Sub Globals
Dim CourseList As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LCourse")
CourseList.Initialize("CourseList")
For i = 1 To 30
CourseList.AddSingleLine("Course" & i)
Next
Activity.AddView(CourseList, 0, 19%y, 100%x, 70%y)
End Sub
Sub Globals
Dim PleaseChoose2 As Button
Dim strCourseName As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LAddCourse")
End Sub
Sub fetchNoOfHoles(Holes As String)
PleaseChoose2.text = Holes
End Sub
Sub PleaseChoose2_Click
StartActivity("NoOfHolesA")
End Sub
Sub Save2_Click
Main.SQL1.ExecNonQuery2("INSERT INTO course VALUES (?,?,?)", Array As Object(Null,strCourseName,18))
Activity.Finish
End Sub
Sub Discard2_Click
StartActivity("Course")
End Sub
Sub CourseNameET_TextChanged (Old As String, New As String)
strCourseName = New
End Sub
--------------------------------------------------------------------
and i want to put the saved course in this:
Sub Globals
Dim CourseList As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LCourse")
CourseList.Initialize("CourseList")
For i = 1 To 30
CourseList.AddSingleLine("Course" & i)
Next
Activity.AddView(CourseList, 0, 19%y, 100%x, 70%y)
End Sub