diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2003-04-11 14:04:42 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2003-04-11 14:04:42 +0000 |
| commit | f0aebe89fc5e119341f75aa59c1a53fc20c6c389 (patch) | |
| tree | bdf15808a8b5e40d208e279d0a880515fb51adbd /wizards | |
| parent | c376458e6d9a3c22b6dd1f0ca56b0061a0bfb0c0 (diff) | |
INTEGRATION: CWS extras4 (1.37.2.3.10); FILE MERGED
2003/03/10 15:21:49 bc 1.37.2.3.10.2: #108107# depiction in 'Block -Labels above' mode improved
2003/03/03 16:49:14 bc 1.37.2.3.10.1: #107789# Now only itemlistener at Listboxes
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index 6c0a3b614282..8be21c0fa694 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -29,6 +29,7 @@ Public Tablename as String Public Const SBSIZETEXT = "The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog." Public bDisposeDoc as Boolean Public bDebug as Boolean +Public bStartUp as Boolean ' The macro can be called in 4 possible scenarios: ' Scenario 1. No parameters at given @@ -63,6 +64,7 @@ Dim i as Integer Dim SelCount as Integer Dim RetValue as Integer Dim SelList(0) as Integer +Dim LocList() as String SelList(0) = 0 BasicLibraries.LoadLibrary("Tools") BasicLibraries.LoadLibrary("WebWizard") @@ -98,6 +100,7 @@ Dim SelList(0) as Integer InitializeLabelValues() bNeedFieldRefresh = True SetDialogLanguage() + bStartUp = true With DialogModel .cmdBack.Enabled = False .cmdGoOn.Enabled = False @@ -118,10 +121,11 @@ Dim SelList(0) as Integer DialogModel.lstTables.Enabled = True DialogModel.lblTables.Enabled = True If GetDBMetaData() Then - DialogModel.lstTables.StringItemList() = AddListToList(TableNames(), QueryNames()) + LocList() = AddListToList(TableNames(), QueryNames()) iCommandTypes = CreateCommandTypeList() If Not IsMissing(sContent) Then ' Scenario 4: all parameters (data source name, connection, object type and object) are given + DialogModel.lstTables.StringItemList() = LocList() iCommandTypes() = CreateCommandTypeList() SelCount = CountItemsInArray(DialogModel.lstTables.StringItemList(), sContent) If SelCount = 1 Then @@ -137,6 +141,12 @@ Dim SelList(0) as Integer End If CurCommandType = CommandType FillUpFieldsListbox(False) + Else + LocList() = AddListToList(Array(sSelectDBTable), LocList()) + DialogModel.lstTables.StringItemList() = LocList() + bSelectContent = True + DialogModel.lstTables.SelectedItems() = Array(0) + End If End If Else @@ -182,6 +192,10 @@ End Sub Sub FormGetFields() Dim i as Integer + If bSelectContent Then + bSelectContent = False + Exit Sub + End If DeleteFirstListBoxEntry("lstTables", sSelectDBTable) ToggleDatabasePage(False) FillUpFieldsListbox(True) |