diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/formwizard/DBMeta.xba | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba index 6815f0e1b423..e2a043874722 100644 --- a/wizards/source/formwizard/DBMeta.xba +++ b/wizards/source/formwizard/DBMeta.xba @@ -8,6 +8,7 @@ Public iCommandTypes() as Integer Public CurCommandType as Integer Public oDataSource as Object Public bEnableBinaryOptionGroup as Boolean +Public bSelectContent as Boolean Function GetDatabaseNames(baddFirstListItem as Boolean) @@ -39,6 +40,10 @@ Sub GetSelectedDBMetaData() Dim OldsDBname as String Dim DBIndex as Integer Dim LocList() as String + If bStartUp Then + bStartUp = false + Exit Sub + End Sub If Ubound(DialogModel.lstDatabases.SelectedItems()) > -1 Then DeleteFirstListBoxEntry("lstDatabases", sSelectDatasource) ToggleDatabasePage(False) @@ -50,6 +55,7 @@ Dim LocList() as String If GetDBMetaData() Then LocList() = AddListToList(Array(sSelectDBTable), TableNames()) .lstTables.StringItemList() = AddListToList(LocList(), QueryNames()) + bSelectContent = True .lstTables.SelectedItems() = Array(0) iCommandTypes() = CreateCommandTypeList() EmptyFieldsListboxes() |