Dim r(3) as object
r(0) = "simple text"
r(1) = "another simple text"
Dim cb as checbox
cb.initialize("twcb")
cb.checked = true
r(2) = cb
Tw.items.add(r)For each r() as object in Tw.items
Dim cb as checkbox = r(2)
cb.checked = true
Next'Extract the row from the tableview:
dim r as object = tw.rows.get(i)
'add the node
Dim cb as checbox
cb.initialize("twcb")
dim bitValue as int = r(2)
cb.checked = bitValue = 0
r(2) = cbWould it not be better to do it in DBUTILS and add another sub just for this function so that the Checkbox is at the beginning of each row and the rest of the code in DBUTILS.ExecuteTableView will run like normal ?
That will be ExecuteTableView3 ...haha
dim m as map
m.initialize
m.put(4,"checkbox") ' columnIndex and node to add
'if the column4 is and integer it will change the checkbox check state, if not it will be its text.
Public Sub ExecuteTableView3(SQL As SQL, Query As String, StringArgs() As String, Limit As Int, _
TableView1 As TableView,instructions As Map)
TableView1.Items.Clear
Dim cur As ResultSet
If StringArgs = Null Then
Dim StringArgs(0) As String
End If
cur = SQL.ExecQuery2(Query, StringArgs)
Dim cols As List
cols.Initialize
For i = 0 To cur.ColumnCount - 1
cols.Add(cur.GetColumnName(i))
Next
TableView1.SetColumns(cols)
Do While cur.NextRow
Dim values(cur.ColumnCount) As Object
For col = 0 To cur.ColumnCount - 1
If instructions.ContainsKey(col) Then
Dim instruction As String = instructions.Get(col)
Select instruction.ToLowerCase
Case "checkbox"
Dim cb As CheckBox
cb.Initialize("twcb")
If IsNumber(cur.GetString(col)) Then
cb.Checked = cur.GetInt(col) = 0
Else
cb.Text = cur.GetString(col)
End If
values(col) = cb
End Select
Else
values(col) = cur.GetString2(col)
End If
Next
TableView1.Items.Add(values)
If Limit > 0 And TableView1.Items.Size >= Limit Then Exit
Loop
cur.Close
End Sub Dim m As Map
m.initialize
m.put(10,"checkbox") ' columnIndex and node to add
DBUTILS.ExecuteTableView3(DB.sql1, "Select checkbox, Barc, sku, lab,carat,colour,clarity,shape,discount, ApproNo FROM Appro_footer WHERE ApproNo = ? ", Array As String (appno),1000,TblInvFoot,m)'i used this query to test, it is the one from DBUtils demo from erel
Dim m As Map
m.Initialize
m.Put(4,"checkbox")
DBUtils.ExecuteTableView3(SQL1, "SELECT Id, [First Name], [Last Name], Birthday, 0 checkbox FROM Students", Null, 0, TableView1,m)
Public Sub ExecuteTableView3(SQL As SQL, Query As String, StringArgs() As String, Limit As Int, _
TableView1 As TableView,instructions As Map)
TableView1.Items.Clear
Dim cur As ResultSet
If StringArgs = Null Then
Dim StringArgs(0) As String
End If
cur = SQL.ExecQuery2(Query, StringArgs)
Dim cols As List
cols.Initialize
For i = 0 To cur.ColumnCount - 1
cols.Add(cur.GetColumnName(i))
Next
TableView1.SetColumns(cols)
Do While cur.NextRow
Dim values(cur.ColumnCount) As Object
For col = 0 To cur.ColumnCount - 1
If instructions.ContainsKey(col) Then
Dim instruction As String = instructions.Get(col)
Select instruction.ToLowerCase
Case "checkbox"
Dim cb As CheckBox
cb.Initialize("twcb")
If IsNumber(cur.GetString2(col)) Then
cb.Checked = cur.GetInt2(col) <> 0
Else
cb.Text = cur.GetString2(col)
End If
values(col) = cb
End Select
Else
values(col) = cur.GetString2(col)
End If
Next
TableView1.Items.Add(values)
If Limit > 0 And TableView1.Items.Size >= Limit Then Exit
Loop
cur.Close
End SubAll I have to do not is to determine which records on the screen are ticked so that I can process those records into an invoice. These are items that are on Appro.
for i = tw.items.size -1 to 0 step -1
dim r() as object = tw.items.get(i)
dim cb as checkbox = r(0) 'column where the checkbox is
if not(cb.checked) then
tw.items.removeAt(i)
end if
next
