General information
Category:
Coding, syntax & commands
Rex,
Thanks for the tip as it did work with even less code as seen below. I also moved it to the Click() method.
LOCAL lnTableCnt
OPEN DATABASE (This.Value) SHARED
lnTableCnt = ADBOBJECTS(ThisForm.aTableList,"Table")
CLOSE DATABASE
IF lnTableCnt > 0
ThisForm.lstTables.RowSourceType = 5
ThisForm.lstTables.RowSource = "ThisForm.aTableList"
ELSE
ThisForm.lstTables.RowSourceType = 0
ThisForm.lstTables.RowSource = ""
ENDIF
>>Thanks for the info on ADBOBJECTS(), that however will not work in this situation. I ended up with the following in the interactivechange of the list box where I put a list of databases in the directory that was selected. The code seems to work ok.
BTW, ADBOBJECTS() DID work, as I chew on my humble pie... mmm, very tasty...
Let me see now how did that go ...
Read
Think
Reply
I should quit skipping the middle step...
Thanks
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only