WinStudio
IWSIDOCollection interface
Returns a Boolean value indicating whether a row in a specified IDO collection is the automatically inserted row (the autoinsert row).
object.IsObjectTheAutoInsertRow( integer )
Part |
Description |
| object | Required. The name of a valid IDO collection object. |
| integer | Required. The index number of an object in the entries for the current IDO collection. |
A return value of:
If the specified IDO collection might not have focus, use this method. If the specified IDO collection has focus, use the IsCurrentObjectTheAutoInsertRow method.
Sub SelectAll(ByVal InputSelected As Integer)
Dim i As Integer
Dim iSelectedQty As Decimal
Dim oSubCol As IWSIDOCollection
oSubCol = ThisForm.Components("SerialGrid").IDOCollection
iSelectedQty = 0
For i = 0 To oSubCol.GetNumEntries - 1
If (Not oSubCol.IsObjectTheAutoInsertRow(i)) Then
oSubCol.SetObjectPropertyPlusModifyRefresh("UbSelect", i, CStr(InputSelected))
If InputSelected = 0 Then
oSubCol.SetObjectModified(i, False)
End If
iSelectedQty = iSelectedQty + InputSelected
End If
Next i
ThisForm.PrimaryIDOCollection.SetCurrentObjectPropertyPlusModifyRefresh("UbSelectedQty", CStr(iSelectedQty))
If InputSelected = 0 Then
oSubCol.SetCurrentObjectModified(False)
End If
oSubCol = Nothing
End Sub