ZooFlow: Switch to new database

GUIs.ZooFlow/Administration/ClassDetailPage.vb

@@ -39,18 +39,18 @@ Public Class ClassDetailPages
     End Class
 
     Public Class DetailPage
-        Public IsPrimary As Boolean = False
-        Public IsInsert As Boolean = False
-        Public TabPage As XtraTabPage
-        Public Name As String
+        Public Property IsPrimary As Boolean = False
+        Public Property IsInsert As Boolean = False
+        Public Property TabPage As XtraTabPage
+        Public Property Name As String
         <Description("The Binding Source for the Form")>
-        Public BindingSource As BindingSource
+        Public Property BindingSource As BindingSource
         <Description("The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)")>
-        Public DataTable As DataTable
+        Public Property DataTable As DataTable
         <Description("The TextEdit Control containing the AddedWho value")>
-        Public AddedWhoEdit As TextEdit
+        Public Property AddedWhoEdit As TextEdit
         <Description("The TextEdit Control containing the ChangedWhoEdit value")>
-        Public ChangedWhoEdit As TextEdit
+        Public Property ChangedWhoEdit As TextEdit
     End Class
 
     ''' <summary>
@@ -100,7 +100,11 @@ Public Class ClassDetailPages
     ''' Add a new DetailPage or a new PrimaryPage
     ''' </summary>
     Public Sub Add(Page As DetailPage)
-        Items.Add(Page.TabPage.Name, Page)
+        If Page.TabPage Is Nothing Then
+            Items.Add("Primary", Page)
+        Else
+            Items.Add(Page.TabPage.Name, Page)
+        End If
 
         AddHandler Page.BindingSource.AddingNew, Sub(sender As Object, e As EventArgs)
                                                      RaiseChangedEvents = False