Hi there,

in a form I send data to wholesalers and have a property to check if the upload has worked. I call a sub-routine to process the data:

Private sub copydata(lSendenok as boolean)

BestBO1.Filter = "status = 'L'"

BestBO1.MoveFirst()

If lSendenOk Then

  ... Not yet tested

Else

   Dim nCount As Integer = 0 ' For testing

   Do

      BestBO1.STATUS = "W"

      nCount = nCount + 1  ' For testing

   Loop While BestBO1.MoveNext

   BestBO1.Save()

   MsgBox(nCount.ToString) ' For testing

Endif

At the beginning of the sub, after setting the filter-property, the bestbo1.count is 28 which are 28 records to be processed, but the Do-Loop runs only 14 times.  What may I have missed there?

Thanks in Advance

Thomas

You're filtering down to only those records that have a status of 'L'.  When you set the status to 'W', it removes the item from the view, so moves to the next record.  Like this:

Hi Ben,

thanks a lot, now it works fine.

Best regards

Thomas