Greetings.
What should I do to initialize a EditText.
Thank you.
This is the error
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim Edit_Text_Servidor As EditText
' Dim EditTextServidor As EditText
Dim Edit_Text_Puerto As EditText
' Dim Edit_Text_Cuenta As EditText
' Dim Edit_Text_Clave As EditText
Dim CheckBox_SSL As CheckBox
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim c As Cursor
Activity.LoadLayout("confcuentacorreo")
Activity.Title = "Configurar la cuenta de correo de salida"
If SQL.IsInitialized Then SQL.Close
' Try
SQL.Initialize(main.DBFilePath, main.DBFileName,False)
str_sql = "Select * from ConfigMail"
c = SQL.ExecQuery(str_sql)
If c.RowCount = 0 Then
Edit_Text_Servidor.Text = "Server" <====Error
What should I do to initialize a EditText.
Thank you.
This is the error
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim Edit_Text_Servidor As EditText
' Dim EditTextServidor As EditText
Dim Edit_Text_Puerto As EditText
' Dim Edit_Text_Cuenta As EditText
' Dim Edit_Text_Clave As EditText
Dim CheckBox_SSL As CheckBox
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim c As Cursor
Activity.LoadLayout("confcuentacorreo")
Activity.Title = "Configurar la cuenta de correo de salida"
If SQL.IsInitialized Then SQL.Close
' Try
SQL.Initialize(main.DBFilePath, main.DBFileName,False)
str_sql = "Select * from ConfigMail"
c = SQL.ExecQuery(str_sql)
If c.RowCount = 0 Then
Edit_Text_Servidor.Text = "Server" <====Error