[Gambas-user] Application with more SQL-tables

Gianluigi bagonergi at gmail.com
Wed Jul 8 11:24:42 CEST 2020


>Thanks, but I said clearly "for each" is no option
>Dag

Why, was it ordered to you by the doctor? Here he works well:

--------------------------------------
    Dim aCell As New Variant[20]
  Dim sType As String

  aCell[5] = "Pippo"
  aCell[10] = 12
  aCell[19] = Date(Now)

  For Each v As Variant In aCell
    If Not v Then
      Continue
    Else
      Print "-----------------------------"
      Select TypeOf(v)
        Case gb.String
          sType = " is a string"
        Case gb.Integer
          sType = " is a integer"
        Case gb.Date
          sType = " is a date"
      End Select
      Print v; sType
      Print "-----------------------------"
    Endif
  Next
--------------------------------------

or explain yourself better.

Regards
Gianluigi
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20200708/999fdf47/attachment.html>


More information about the User mailing list