INTEGRATION: CWS dba07 (1.40.10); FILE MERGED

2003/05/26 10:58:04 bc 1.40.10.1: #i14703# boolean flags to control listbox selections removed

wizards/source/formwizard/FormWizard.xba

@@ -29,7 +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
+'Public bStartUp as Boolean
 Public bConnectionIsovergiven as Boolean
 
 ' The macro can be called in 4 possible scenarios:
@@ -101,7 +101,7 @@ Dim LocList() as String
 	InitializeLabelValues()
 	bNeedFieldRefresh = True
 	SetDialogLanguage()
-	bStartUp = true
+'	bStartUp = true
 	With DialogModel
 		.cmdBack.Enabled = False
 		.cmdGoOn.Enabled = False
@@ -146,7 +146,7 @@ Dim LocList() as String
 				Else
 					LocList() = AddListToList(Array(sSelectDBTable), LocList())
 					DialogModel.lstTables.StringItemList() = LocList()
-					bSelectContent = True
+'					bSelectContent = True
 					DialogModel.lstTables.SelectedItems() = Array(0)
 
 				End If
@@ -194,10 +194,10 @@ End Sub
 
 Sub FormGetFields()
 Dim i as Integer
-	If bSelectContent Then
-		bSelectContent = False
-		Exit Sub
-	End If
+'	If bSelectContent Then
+'		bSelectContent = False
+'		Exit Sub
+'	End If
 	DeleteFirstListBoxEntry("lstTables", sSelectDBTable)
 	ToggleDatabasePage(False)
 	FillUpFieldsListbox(True)