diff options
author | Vladimir Glazounov <vg@openoffice.org> | 2003-04-11 14:04:16 +0000 |
---|---|---|
committer | Vladimir Glazounov <vg@openoffice.org> | 2003-04-11 14:04:16 +0000 |
commit | 5007811356b2d1c0e4d91056d31ac16be5c9fd1d (patch) | |
tree | b7567218774bff03ad349054261843c9c31fcb98 | |
parent | d5bcc6dbae4c32e29be588a102110c0391c94a5f (diff) |
INTEGRATION: CWS extras4 (1.26.4.2.12); FILE MERGED
2003/03/03 16:49:13 bc 1.26.4.2.12.1: #107789# Now only itemlistener at Listboxes
-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() |