This procedure worked fine in version 2019r1, but crashes on “RemoveAllRows” in version 2019r2.
CurrentCustOrdItems is a class holding data [CurrentCustOrdItems () as CustomerOrderItem] .
Dim OrdItem As OrderItem
CustomerOrderWindow.CurrentCustOrdItems.RemoveAllRows //RemoveAllRows causes crash here
If rsOrderItems <> Nil Then
While Not rsOrderItems.EOF
OrdItem = New OrderItem
OrdItem.OrderID = rsOrderItems.Field("orders_id").StringValue
OrdItem.ProductID = rsOrderItems.Field("products_id").StringValue
OrdItem.ModelCode = rsOrderItems.Field("products_model").StringValue
OrdItem.ProductName = rsOrderItems.Field("products_name").StringValue
OrdItem.TableRowID = rsOrderItems.Field("orders_products_id").IntegerValue
OrdItem.UnitFinalPrice = rsOrderItems.Field("final_price").CurrencyValue
OrdItem.QuantityOrdered = rsOrderItems.Field("products_quantity").IntegerValue
OrdItem.SalesTaxRate = rsOrderItems.Field("products_tax").DoubleValue
CustomerOrderWindow.CurrentCustOrdItems.Append(OrdItem)
rsOrderItems.MoveNext
Wend
rsOrderItems.Close
End If