Good Day All,
Tomorrow I need to demo my app and website to my Boss. I thought all ways going well until I got the desktop app going today.
My problem is, that in the Tab part of my page, under "Products" I have chips that are made by reading the Product group table and generating chips on the fly. see website: http://104.238.77.163:51042/ds/ds_home/
I thought all was fine until I started adding groups on the desktop version, both connected to the same database.
The chips are not updating after a refresh, what appears to be the problem is either:
1. Cache (cleared it and the problem remains)
2. During compiling the compiler reads the chips in and compiles the jar fixed.
If I recompile and load the website again, the website displays correctly until I add a new group or change the text on a group.
Code shown here.
Ideas please.
Regards Phil
Tomorrow I need to demo my app and website to my Boss. I thought all ways going well until I got the desktop app going today.
My problem is, that in the Tab part of my page, under "Products" I have chips that are made by reading the Product group table and generating chips on the fly. see website: http://104.238.77.163:51042/ds/ds_home/
I thought all was fine until I started adding groups on the desktop version, both connected to the same database.
The chips are not updating after a refresh, what appears to be the problem is either:
1. Cache (cleared it and the problem remains)
2. During compiling the compiler reads the chips in and compiles the jar fixed.
If I recompile and load the website again, the website displays correctly until I add a new group or change the text on a group.
Code shown here.
B4X:
Dim ch1 As ABMChip
ch1.Initialize(page, "Products Page", "Products Page", False, "")
Tabc.Cell(2,1).AddArrayComponent(ch1, "catagories")
'Tabc.Cell(2,2).AddComponent(ABMShared.BuildParagraphHeader(page, "par1", "Select a product catagory below"))
' Read Product Group Table
Dim cursor As ResultSet
Try
cursor = sql1.ExecQuery("SELECT s_productgroup FROM qualas_productgroup")
Dim myCell As Int = 2
Do While cursor.NextRow
' Read Single record from productgroup table
Dim vRow(1) As Object
vRow(0) = cursor.GetString("s_productgroup")
Dim ch1 As ABMChip
ch1.Initialize(page, vRow(0), vRow(0), False, "chiptheme")
Tabc.Cell(3,2).AddArrayComponent(ch1, "catagories")
myCell = myCell +1
Loop
Catch
Log("ERROR: " & LastException.Message)
End Try
Ideas please.
Regards Phil