|
> > Ok, i am having a problem, the thing is, my code is only going so far, and > when > > it hit the line marked with **** it simple doesnt test it. > > Is there some limit for it ? > > or have i reached some kind of variable limit ? > > > > the program itself is quite big, and that if, was one of the first things, and > > it was working back when i coded it, i extensively tested it. > > its a search form through a database. its for a real estate control program i > am > > coding. > > > > code is as follows > > In reply to: > > If Problema12.ListIndex 0 And Problema22.ListIndex 0 And urgencia2.ListIndex > = > > 0 And cmb_valor2.ListIndex = 0 Then > > 'Label51.Caption = "teste" > > posicao = dBase.FindText(Problema12.List(Problema12.ListIndex), inicio, 2) > > If posicao = -1 Then Exit Sub > > If posicao -1 Then > > 'inicio2 = posicao > > dBase.AbsolutePosition = posicao > > achou = dBase.Field(3) > > Label1.Caption = achou > > Label2.Caption = Problema22.List(Problema22.ListIndex) > > Label51.Caption = achou > > Label52.Caption = Label2.Caption > > > > ***** If Label1.Caption = Label2.Caption Then > > List12.AddItem posicao, 0 > > dBase.AbsolutePosition = posicao > > mostrartipo = dBase.Field(2) > > List2.AddItem mostrartipo, 0 > > mostrardorm = dBase.Field(8) > > List3.AddItem mostrardorm, 0 > > mostrarend = dBase.Field(0) > > List4.AddItem mostrarend, 0 > > mostrarvalor = dBase.Field(13) > > List5.AddItem mostrarvalor, 0 > > mostrarcontato = dBase.Field(11) > > List6.AddItem mostrarcontato, 0 > > temfoto = dBase.Field(15) > > 'temfoto2 = Left(temfoto, 1) > > List13.AddItem temfoto, 0 > > Label52.Caption = posicao > > MsgBox "não falhou" > > 'If temfoto2 "" Then > > ' List13.AddItem "S", 0 > > ' GoTo temfoto1 > > 'End If > > 'List13.AddItem "N", 0 > > 'temfoto1: > > ***** End If > > posicao = posicao + 1 > > inicio = posicao > > achou = " " > > > > End If > > End If > > The part between the **** is not being tested. > > and i am using label51 and label52 to check, and the values DO match, and so, > > the code should be doing the stuff between the **** lines. > > > > Any ideas ? > > > > So what happens? Does it not get to that line, or does it always say that > Label1.Caption Label2.Caption? > If it says Label1.Caption Label2.Caption, try checking the lengths of both > strings, and then if that doesn't give a clue, get the ascii code of each > character to make sure there's not an extra carriage return/line feed. > Also, check that TypeName(Label1.Caption) = TypeName(Label2.Caption) in case > somehow one of them is a Variant... > > Post back if you need more info, and I'll check tomorrow...
i have checked the lenght and the ascii codes, and they seem exactly the same to me. it is always saying that label1.caption <> label2.caption. i will give the code a few more reads. Maybe i can see something that i'm missing. i will also check typename for both labels.
i will post back when/if i find anything out.
|