Hi,
The code I use to clear the table (tblR) is (ignore tblA and tblI...they're for later):
Please Note:
wipe - a boolean to either delete the rows. False works... True is the problem; and at this point I'm not trying to loop through all rows, just clear the first row input by hard-coding the ids.
The code for creating the ABMInputs is:
I use some constants plus the loop index to generate the id's for the rows and ABMInputs.
Here are two screenshots...one shows the debug view and the other is a screenshot of what is on the page...
Can anyone tell me where I'm going wrong here?
Thanks in advance...
As my webapp starts to take shape I've come across a problem that I just cannot solve with ABMTableMutable and ABMInput components...
Basically I have a page with two ABMCombo's and an ABMTableMutable.
- The number of rows in the table can vary depending on the value selected in Combo2.
- Each row in the table contains an ABMInput in the first cell.
- When Combo2 changes I have no problem have no problem clearing the table of rows and adding the rows with their ABMInput. Both the Row and the ABMInput have their own unique id's.
- One curious thing about the ABMInput's is that I apply an InputMask but that InputMask does not seem to be active even though it shows when I inspect it at runtime.
- When Combo1 changes I need to run through each row and set the ABMInput.Text value to "", i.e. wiping the value in each ABMInput so the user can start again.
The code I use to clear the table (tblR) is (ignore tblA and tblI...they're for later):
Please Note:
wipe - a boolean to either delete the rows. False works... True is the problem; and at this point I'm not trying to loop through all rows, just clear the first row input by hard-coding the ids.
Clear the table:
Sub ClearResultsTables(wipe As Boolean)
Dim tblA As ABMTableMutable = GetRRTableMutable(CMP_TAB_PAGE, CMP_TBP_RR, CMP_TBL_RR_ACCURACY)
Dim tblI As ABMTableMutable = GetRRTableMutable(CMP_TAB_PAGE, CMP_TBP_RR, CMP_TBL_RR_IDEAL_SPLITS)
Dim tblR As ABMTableMutable = GetRRTableMutable(CMP_TAB_PAGE, CMP_TBP_RR, CMP_TBL_RR_RESULTS)
If wipe Then
Dim id As String = CMP_INP_RR_TIME & 1
Dim RowId As String = CMP_ROW_RR_RESULTS & 1
Dim inp As ABMInput = tblR.GetComponent(RowId, id)
LogDebug("Clearing Row: " & RowId & " Input: " & id)
Dim s As String = inp.Text
LogDebug("Text = " & s)
inp.Text = ""
Else
tblA.Clear
tblA.SetFooters(Array As String("", ""))
tblI.Clear
tblI.SetFooters(Array As String(""))
tblR.Clear
tblR.SetFooters(Array As String(""))
End If
tblA.Refresh
tblI.Refresh
tblR.Refresh
End Sub
The code for creating the ABMInputs is:
Create the Inputs...:
Sub CreateInputs
Dim prevRowId As String
prevRowId = ""
Dim tblR As ABMTableMutable = GetRRTableMutable(CMP_TAB_PAGE, CMP_TBP_RR, CMP_TBL_RR_RESULTS)
For idx = 1 To (RRDistance / 50)
Dim inp As ABMInput
Dim id As String = CMP_INP_RR_TIME & idx
inp.InitializeWithSize(page, id, ABM.INPUT_TEXT, (idx * 50) & "m", 100, 100, 100, 50, 50, 50, False, ABMShared.THM_INPUT)
inp.inputMask = "'mask': '99:99.99'"
inp.Text = ""
inp.Narrow = True
Dim rowId As String = CMP_ROW_RR_RESULTS & idx
tblR.InsertRowAfter(prevRowId,rowId,Array As Object(inp), Array As String(""))
prevRowId = rowId
LogDebug("Creating Row: " & rowId & " Input: " & CMP_INP_RR_TIME & idx)
Next
tblR.Refresh
End Sub
I use some constants plus the loop index to generate the id's for the rows and ABMInputs.
Here are two screenshots...one shows the debug view and the other is a screenshot of what is on the page...
Can anyone tell me where I'm going wrong here?
Thanks in advance...