Column property in MultiListbox
 

I get the message "Could not get the Column property....
Invalid argument" on the following:

Private Sub lbDataCode_Click()
If lbDataCode.ListIndex < -1 Then
If lbDataCode.Column(1, lbDataCode.ListIndex) < "" Then <==
tbCtrTrade.Text = lbDataCode.Column(1, lbDataCode.ListIndex)
tbCtrTrade.SetFocus
tbCtrTrade.SelStart = 0
tbCtrTrade.SelLength = Len(tbCtrTrade.Text)
Else
tbCtrTrade.Text = ""
tbCtrTrade.SetFocus
End If
Else
tbCtrTrade.Text = ""
End If
End Sub

Col1 in the listbox is populated correctly, and the user is
about to enter corresponding values into Col2.

Why the message, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.528 / Virus Database: 324 - Release Date: 16/10/2003

Column property in MultiListbox
 

Column is zero based, so to work with column 1 use zero, not 1

If lbDataCode.Column(0, lbDataCode.ListIndex) < "" Then

If you are working with the current selected item you can shorten it to

If lbDataCode.Column(0) < "" Then

or so sayeth help.

--
Regards,
Tom Ogilvy




"Stuart" wrote in message
...
I get the message "Could not get the Column property....
Invalid argument" on the following:

Private Sub lbDataCode_Click()
If lbDataCode.ListIndex < -1 Then
If lbDataCode.Column(1, lbDataCode.ListIndex) < "" Then <==
tbCtrTrade.Text = lbDataCode.Column(1, lbDataCode.ListIndex)
tbCtrTrade.SetFocus
tbCtrTrade.SelStart = 0
tbCtrTrade.SelLength = Len(tbCtrTrade.Text)
Else
tbCtrTrade.Text = ""
tbCtrTrade.SetFocus
End If
Else
tbCtrTrade.Text = ""
End If
End Sub

Col1 in the listbox is populated correctly, and the user is
about to enter corresponding values into Col2.

Why the message, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.528 / Virus Database: 324 - Release Date: 16/10/2003

Column property in MultiListbox
 

Many thanks,

Regards.

"Tom Ogilvy" wrote in message
...
Column is zero based, so to work with column 1 use zero, not 1

If lbDataCode.Column(0, lbDataCode.ListIndex) < "" Then

If you are working with the current selected item you can shorten it to

If lbDataCode.Column(0) < "" Then

or so sayeth help.

--
Regards,
Tom Ogilvy




"Stuart" wrote in message
...
I get the message "Could not get the Column property....
Invalid argument" on the following:

Private Sub lbDataCode_Click()
If lbDataCode.ListIndex < -1 Then
If lbDataCode.Column(1, lbDataCode.ListIndex) < "" Then <==
tbCtrTrade.Text = lbDataCode.Column(1, lbDataCode.ListIndex)
tbCtrTrade.SetFocus
tbCtrTrade.SelStart = 0
tbCtrTrade.SelLength = Len(tbCtrTrade.Text)
Else
tbCtrTrade.Text = ""
tbCtrTrade.SetFocus
End If
Else
tbCtrTrade.Text = ""
End If
End Sub

Col1 in the listbox is populated correctly, and the user is
about to enter corresponding values into Col2.

Why the message, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.528 / Virus Database: 324 - Release Date: 16/10/2003






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.528 / Virus Database: 324 - Release Date: 16/10/2003