sub LoadData
TableView1.Items.Clear
Dim cols As List
cols.Initialize
cols.AddAll(Array As String("BANK","ACC. OWNER","ACC. NUMBER","ACTION"))
TableView1.SetColumns(cols)
Dim curks As ResultSet
curks =Main.SQL1.ExecQuery("select * from bank")
Do While curks.NextRow
Dim lbl1,lbl2,lbl3 As Label
Dim Btn As Button
Dim btn2 As Button
Dim paneBtn As Pane
paneBtn.Initialize("")
paneBtn.PrefHeight =28
lbl1.Initialize("lbl1")
lbl2.Initialize("lbl2")
lbl3.Initialize("lbl3")
Btn.Initialize("btndelsat")
btn2.Initialize("btnEdsat")
Btn.StyleClasses.Add("btnDelTab")
btn2.StyleClasses.Add("btnEdTab")
Btn.tag = curks.GetString("namabank")
btn2.tag = curks.GetString("namabank")
paneBtn.AddNode(btn2,0,0,25,28)
paneBtn.AddNode(Btn,45,0,25,28)
lbl1.Text = curks.GetString("bankname").ToUpperCase
lbl2.Text = curks.GetString("owner")
lbl3.Text = curks.GetString("accnum")
TableView1.Items.Add(Array As Object(lbl1.Text, lbl2.Text,lbl3.Text,paneBtn))
Loop
curks.Close
SetColumnStyle(TableView1,2,"-fx-alignment:CENTER-RIGHT")
End Sub
Sub SetColumnStyle(table As TableView, ColumnIndex As Int, Style As String)
Dim jo As JavaObject = table
jo.RunMethodJO("getColumns", Null).RunMethodJO("get", Array(ColumnIndex)).RunMethod("setStyle", Array(Style))
End Sub