Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private ItemTable_ESMMBOM As Table
End Sub
Sub Activity_Create(FirstTime As Boolean)
All_Items_Sambania("none999")
End Sub
Sub All_Items_Sambania(LookingFor As String)
Dim SQlScript As String
Dim Curs1 As Cursor
ItemTable_ESMMBOM.InitializeTable(7, Gravity.CENTER, False)
ItemTable_ESMMBOM.SetHeader(Array As String("xxxx", "xxxx", "xxxx", "xxxxx", "xxxxx", "xxxxx", "xxxxx"))
ItemTable_ESMMBOM.SetColumnsWidths(Array As Int(70dip, 200dip, 60dip, 80dip, 110dip, 250dip, 100dip))
ItemTable_ESMMBOM.hideCol(6)
ItemTable_ESMMBOM.SortColumn = False
SQlScript = $"Select xxxx, xxxx, xxxx, xxxx FROM T1"$
Starter.LocalSQL.Initialize(File.DirRootExternal & "/DroidViewDB/", "DVDatabase.db", True)
Curs1 = Starter.LocalSQL.ExecQuery(SQlScript)
'Log(Curs1.RowCount)
For ii = 0 To Curs1.RowCount - 1
Curs1.Position = ii
ItemTable_ESMMBOM.AddRowAutomaticWidth(Array As String(Curs1.GetString("xxxx"), Curs1.GetString("xxxxx"), _
Curs1.GetString("xxxxx"), "", "xxxxxxx", "", Curs1.GetString("xxxx")))
Next
End Sub