Fix to insert datatable record

Author: tduguid

CS/Scripts/Data.cs

@@ -62,7 +62,7 @@ public static void CreateTableAliasTable()
                     da.Fill(TableAliasTable);
                 }
                 TableAliasTable.DefaultView.Sort = columnName + " asc";
-                DateFormatTable.TableName = tableName;
+                TableAliasTable.TableName = tableName;
 
             }
             catch (Exception ex)
@@ -213,7 +213,7 @@ public static void InsertRecord(DataTable tbl, string text)
         {
             string tableName = tbl.TableName.ToString();
             string columnName = tbl.Columns[0].ColumnName.ToString();
-            string sql = "SELECT * FROM " + tableName; //+ " ORDER BY " + columnName;
+            string sql = "SELECT * FROM " + tableName + " ORDER BY " + columnName;
             if (tbl.Select(columnName + " = '" + text.Replace("'", "''") + "'").Length == 0)
             {
                 DialogResult dr = MessageBox.Show("Would you like to add '" + text + "' to the list?", "Add New Value", MessageBoxButtons.YesNo, MessageBoxIcon.Question);

VB/Scripts/Data.vb

@@ -3,6 +3,7 @@ Imports System.IO
 Imports System.Data
 Imports System.Data.SqlServerCe
 Imports System.Security.AccessControl
+Imports System.Windows.Forms
 
 Namespace Scripts
 
@@ -38,6 +39,7 @@ Namespace Scripts
                 End Using
 
                 TableAliasTable.DefaultView.Sort = columnName & Convert.ToString(" asc")
+                TableAliasTable.TableName = tableName
 
             Catch ex As Exception
                 'ErrorHandler.DisplayMessage(ex)
@@ -64,6 +66,7 @@ Namespace Scripts
                 End Using
 
                 DateFormatTable.DefaultView.Sort = columnName & Convert.ToString(" asc")
+                DateFormatTable.TableName = tableName
 
             Catch ex As Exception
                 'ErrorHandler.DisplayMessage(ex)
@@ -145,6 +148,38 @@ Namespace Scripts
 
         End Sub
 
+        Public Shared Sub InsertRecord(ByVal tbl As DataTable, ByVal text As String)
+            Dim tableName As String = tbl.TableName.ToString()
+            Dim columnName As String = tbl.Columns(0).ColumnName.ToString()
+            Dim sql As String = "SELECT * FROM " & tableName
+            If tbl.[Select](columnName & " = '" + text.Replace("'", "''") & "'").Length = 0 Then
+                Dim dr As DialogResult = MessageBox.Show("Would you like to add '" & text & "' to the list?", "Add New Value", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                Select Case dr
+                    Case DialogResult.Yes
+                        tbl.Rows.Add(New Object() {text})
+                        Dim cn As SqlCeConnection = New SqlCeConnection(Data.Connection())
+                        Dim scb As SqlCeCommandBuilder = Nothing
+                        Dim sda As SqlCeDataAdapter = New SqlCeDataAdapter(sql, cn)
+                        sda.TableMappings.Add("Table", tableName)
+                        scb = New SqlCeCommandBuilder(sda)
+                        sda.Update(tbl)
+                        Dim dcFormatString As DataColumn = New DataColumn(columnName, GetType(String))
+                        tbl.Rows.Clear()
+                        Dim columns As DataColumnCollection = tbl.Columns
+                        If columns.Contains(columnName) = False Then
+                            tbl.Columns.Add(dcFormatString)
+                        End If
+
+                        Using da = New SqlCeDataAdapter(sql, Connection())
+                            da.Fill(tbl)
+                        End Using
+
+                        tbl.DefaultView.Sort = columnName & " asc"
+                    Case DialogResult.No
+                End Select
+            End If
+        End Sub
+
     End Class
 
 End Namespace

VB/Scripts/Ribbon.vb

@@ -360,17 +360,22 @@ Namespace Scripts
                 Select Case control.Id
                     Case "cboDateFormatReplace"
                         My.Settings.Table_ColumnDateFormatReplace = text
+                        Data.InsertRecord(Data.DateFormatTable, text)
                         Exit Select
                     Case "cboDateFormatFind"
                         My.Settings.Table_ColumnDateFormatFind = text
+                        Data.InsertRecord(Data.DateFormatTable, text)
                         Exit Select
                     Case "cboTableAlias"
                         My.Settings.Table_ColumnTableAlias = text
+                        Data.InsertRecord(Data.TableAliasTable, text)
                         Exit Select
                 End Select
+
             Catch ex As Exception
                 ErrorHandler.DisplayMessage(ex)
             End Try
+
         End Sub
 
         Public Function GetText(control As Office.IRibbonControl) As String