summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2003-04-11 14:04:16 +0000
committerVladimir Glazounov <vg@openoffice.org>2003-04-11 14:04:16 +0000
commit5007811356b2d1c0e4d91056d31ac16be5c9fd1d (patch)
treeb7567218774bff03ad349054261843c9c31fcb98
parentd5bcc6dbae4c32e29be588a102110c0391c94a5f (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.xba6
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()) &gt; -1 Then
DeleteFirstListBoxEntry(&quot;lstDatabases&quot;, 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()