Hi all.

SLX LAN v7.2.1

I have a checklistbox (checklistbox2) that gets populated by the values from a picklist. I want to be able to fill in the checkbox on certain values in that checklistbox. Let's say, fill in the checkbox for the values: UPS, FEDEX and DHL. There are many more options but I want those 3 to be filled in, the picklist will vary in data. Sometimes it will have 5 values, sometimes it will have 8 etc.

How can I do that? Thank you in advance!

Below is the code I use for populating the checklistbox:

<p>Dim objSLXDBjb
Dim objRSjb
Set objSLXDBjb = New SLX_DB
Set objRSjb = objSLXDBjb.GetNewRecordSet
	objRSjb.Open "Select TEXT From sysdba.PICKLIST WHERE  (PICKLISTID = 'k6UJ9A0002ZU') ORDER BY TEXT", objSLXDBjb.Connection
	Do While not objRSjb.EOF
	  Checklistbox2.Items.add(objRSjb(0).Value & "")
	  objRSjb.MoveNext
Loop

Hi,

I suppose you have found the answer yourself, because the answer is in your code. If the data varies you have to vary your SQL statement depending on your requirement, e.g.:

Select TEXT From sysdba.PICKLIST WHERE  PICKLISTID IN ('k6UJ9A0002ZU', 'xxx', 'yyyy')
Select TEXT From sysdba.PICKLIST WHERE  (PICKLISTID = 'k6UJ9A0002ZU') AND TEXT IN ('a','b','c')

and so on.

Cheers,

Thomas

Dim objSLXDBjb
Dim objRSjb
Dim itemPos
Dim val
Set objSLXDBjb = New SLX_DB
Set objRSjb = objSLXDBjb.GetNewRecordSet
	objRSjb.Open "Select TEXT From sysdba.PICKLIST WHERE  (PICKLISTID = 'k6UJ9A0002ZU') ORDER BY TEXT", objSLXDBjb.Connection
	Do While not objRSjb.EOF
          val = objRSjb(0).Value & ""
	  itemPos = Checklistbox2.Items.add(val)
          If (val = "UPS" OR val ="FEDEX" OR val = "DHL") Then
            Checklistbox2.Checked(itemPos) = True
          End If
	  objRSjb.MoveNext
Loop

Thanks!