[Gambas-user] Endless DATA event in Table

[Rolf-Werner Eilert]

Am 15.10.2015 18:11, schrieb Benoît Minisini:
> Le 15/10/2015 17:51, Rolf-Werner Eilert a écrit :
>> In my project there is a TabView with 4 tabs, on two of them there is a
>> TableView. And there is a TreeView with names.
>>
>> When I choose a name, and the first Tab is open, the Table there is
>> filled with data, and there it stops and waits. So the DATA event runs
>> through only once after it was triggered by setting Rows.Count.
>>
>> When I click on the other Tab with the other Table, it keeps filling and
>> filling and filling, so the program is slowed down. But Rows.Count is
>> set only once there, too. And there is nothing within the Data event
>> loop which could set it again while filling.
>>
>> As soon as I click on another Tab, it stops filling that Table. Same
>> when I click on some root entry in the TreeView which empties the
>> Tables. So when GUI moves the focus away from that Table, it stops as
>> expected.
>>
>> My problem is, I cannot find any reason for that specific TableView to
>> be triggered over and over again. Does anyone here have had such a case
>> and could me point where to start looking?
>>
>> Thanks for any hints!
>>
>> Rolf
>>
> Can you provide a project?
>

Hm no, it's way too large... but I can show excerpts if you like:

This is the table "tbd" which runs normally:

   ldsv.ListeFelder(baum.Current.Key, links, rechts)
   tbd.Rows.Count = links.Count
   tbd.Columns.Count = 2
   tbd.Columns[1].Width = tbd.Columns[0].Width * 3


Public Sub tbd_Data(Row As Integer, Column As Integer)

   If TabelleAnzeigen Then
     tbd.Data.Text = TabellenZelle(tblDaten[Row + 2], Column + 1)

   Else
     If Column = 0 Then
       tbd.Data.Text = links[Row]
     Else If Column = 1 Then
       tbd.Data.Text = rechts[Row]
     End If
   End If

End

This is the table "tbk" which is running over and over again:

   ldsv.ListeKonto(baum.Current.Key, ktNr, ktDatum, ktText, ktSoll, 
ktHaben, ktModus)

   konto.ListeKTXbisJetzt(baum.Current.Key, text, soll)

   konto.ListeKTXansKonto(ktNr, ktDatum, ktText, ktSoll, ktHaben, 
ktModus, text, soll, nix)

   tbk.Rows.Count = ktNr.Count
   tbk.Columns.Count = 5
   tbk.Columns[1].Width = tbk.Columns[0].Width * 2
   tbk.Columns[2].Width = tbk.Columns[0].Width / 1.5
   tbk.Columns[3].Width = tbk.Columns[0].Width / 1.5
   tbk.Columns[4].Width = tbk.Columns[0].Width / 3
   tbk.Columns[0].Text = "Datum"
   tbk.Columns[1].Text = "Text"
   tbk.Columns[2].Text = tbkRechtsbuendig(2, "Soll")
   tbk.Columns[3].Text = tbkRechtsbuendig(3, "Haben")
   tbk.Columns[4].Text = "Modus"

   If ktModus[ktModus.Count - 1] = "O" Then  'altes Konto
     tbk.Font.Name = "Courier"                 'Schrift Courier
   Else                                      'neues Konto
     tbk.Font.Name = tbd.Font.Name             'Schrift wie Datentabelle
   End If

   tbk.MoveTo(tbk.Rows.Count - 1, tbk.Columns.Count - 1)
   tbk.Current.EnsureVisible


Public Sub tbk_Data(Row As Integer, Column As Integer)

   Select Case Column
   Case 0
     tbk.Data.Text = ktDatum[Row]
     If ktDatum[Row] <> "" And ktModus[Row] <> "N" Then
       tbk.Background = Color.RGB(230, 230, 230)
     Else
       tbk.Background = color.White
     End If

   Case 1
     tbk.Data.Text = ktText[Row]
     If ktText[Row] <> "" And ktModus[Row] <> "N" Then tbk.Background = 
color.RGB(230, 230, 230)
     If ktModus[Row] = "K" Then
       tbk.Data.RichText = "<i><b><font color=\"#0000FF\">" & 
ktText[Row] & "</font></b></i>"
     End If

   Case 2
     tbk.Data.Text = cent2wert(ktSoll[Row])
     tbk.Data.Alignment = Align.Right
     If ktSoll[Row] <> "" And ktModus[Row] <> "N" Then tbk.Background = 
Color.RGB(230, 230, 230)
     If ktModus[Row] = "K" Then tbk.Background = color.RGB(230, 230, 230)

   Case 3
     Select Case saldoZeile(Row)
     Case -1                     'Minderbetrag
       If Trim$(ktHaben[Row]) = "" Then
         tbk.Data.RichText = "<i><b><font color=\"#FF0000\">" & "-,--" & 
"</font></b></i>"
       Else
         tbk.Data.RichText = "<i><b><font color=\"#FF0000\">" & 
cent2wert(ktHaben[Row]) & "</font></b></i>"
       End If
     Case 0                      'Ausgleich
       tbk.Data.RichText = "<b><font color=\"#0000FF\">" & 
cent2wert(ktHaben[Row]) & "</font></b>"
     Case 1                      'Überzahlung
       tbk.Data.RichText = "<b><font color=\"#00A600\">" & 
cent2wert(ktHaben[Row]) & "</font></b>"
     End Select
     tbk.Data.Alignment = Align.Right
     If ktHaben[Row] <> "" And ktModus[Row] <> "N" Then tbk.Background = 
Color.RGB(230, 230, 230)
     If ktModus[Row] = "K" Then tbk.Background = Color.RGB(230, 230, 230)

   Case 4
     tbk.Data.Text = ktModus[Row]
     If ktModus[Row] <> "" And ktModus[Row] <> "N" Then tbk.Background = 
color.RGB(230, 230, 230)

   End Select

End

As soon as I can see, it doesn't contain any code that would trigger it 
all over (if that is possible anyway).

Thanks
Rolf