Data Combo Object

[Collin79]

Hi!!

I'm using a Data Combo object with this code:

Private Sub DataCombo1_LostFocus()

If DataCombo1.BoundText = "GNP" Then
DataCombo1.DataMember = rpGNP
DataCombo1.DataField = Company
ElseIf DataCombo1.BoundText = "SCA" Then
DataCombo1.DataMember = rpSCA
DataCombo1.DataField = Company
ElseIf DataCombo1.BoundText <> &quot;GNP&quot; And DataCombo1.BoundText <> &quot;SCA&quot; Then
DataCombo1.DataMember = rpOthers
DataCombo1.DataField = Company
End If

When I run my program and select a choice from it, i got this message error:

Compile error:

type mismatch

over this sentence:

DataCombo1.DataMember

Somebody please help me!!!!!

Collin79

 

[Guest_imported]

Do you know in which line did the error occur?

 

[Guest_imported]

The one thing you did forget in the code was &quot;DataBound1.DataSource=...&quot; right before the &quot;Databound1.DataMember=...&quot;.

 

[andrewvampire]

Have you tried using a End Sub after the End If?

 

[Guest_imported]

Hey andrew pls don't be silly in the first place the program would not run if the END SUB was not there. It checks first for the syntax before it is executed.

 

[Collin79]

Thanks all:

The error occurs over this line:

DataCombo1.DataField = Company

with this error:

Compile error:

type mismatch

and I can see highlighted .Datafield

 

[Collin79]

About Datasource:

It's the same for all objects, I'm using Dataenvironment1

Any hint?

Thanks

Collin79

 

[Collin79]

Any hint??

 

[Collin79]

Hey, it's working ok, thanks to all that help me

Collin79