[Gambas-bugtracker] Bug #2626: DataBrowser bug

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.2626&from=L21haW4-

Comment #3 by Gianluigi GRADASCHI:

False alarm I thought that the non-working of this code might be due to the string conversion, but it is not:

( of course I added a Private $aValue As New Variant[] )

Public Sub DataSource1_BeforeSave(Data As Result)

  If Not DataControl2.Value Then 
    Stop Event 
    Return 
  Endif
  If Not DataControl1.Value Then Stop Event
  
  Inc $iCounter
  $aValue.Push(Data!blnam)
  $aValue.Push(Data!blblo)  
  DataControl1.Value = $aValue[0]
  DataControl2.Value = $aValue[1]
  
  If $iCounter > 1 Then 
    Stop Event 
    $iCounter = 0
    $aValue.Delete(0, -1)
  Endif

End

No way, even so it selects the changed line :-/

P.S. Benoit, I wanted to apologize for the heaviness of the project, if you want you can delete it, and I will insert the link or make it lighter.