Creating on-the-fly-table

[Ruslan Zasukhin]

On 5/16/05 4:39 PM, "Charles Cohen" <rwc1717 at shaw.ca> wrote:

>      for i = 0 to ArchLB.Listcount-1
>        if ArchLB.cellcheck(i,1) then
>          rs = Nil
>          rs = aDb.SQLSelect("select * from aEquity where equityIDA =
> '"+archLB.cell(i,2)+"'",EVCursorLocation.kClientSide)
>          s.append rs.Field("DescriptA").GetString()
>          s.append rs.Field("HighA").GetString()
>          s.append rs.Field("LowA").GetString()
>          s.append rs.Field("TargA").GetString()
>          s.append rs.Field("DivdA").GetString()
>          s.append rs.Field("BuyA").GetString()
>          s.append rs.Field("PerfA").GetString()
>          s.append rs.Field("equityIDA").GetString()
>          v.SetBlank()
>          v.StringField("DescriptA").SetString(s(0))
>          v.StringField("DescriptA").Value = s(0)
>          v.StringField("HighA").Value = s(1)
>          v.StringField("LowA").Value = s(2)
>          v.StringField("TargA").Value = s(3)
>          v.StringField("DivdA").Value = s(4)
>          v.StringField("BuyA").Value = s(5)
>          v.StringField("PerfA").Value = s(6)
>          v.StringField("equityIDA").Value = s(7)
>          call v.Addrecord()

Why you use Array of Strings here?

Why not simply:

      v.StringField("HighA").Value = rs.Field("HighA").GetString()


-- 
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]