Public Class Form1
    Private ds As DataSet
    Private m_dt As DataTable
    Private dr As DataRow
    Private OperatorKey As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Code to retrieve operator key
        OperatorKey = "42"
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        SaveSettings(Me, m_dt, OperatorKey)
    End Sub

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        LoadSettings(OperatorKey)

    End Sub

    Private Sub SaveSettings(ByVal pControl As Control, ByVal pDataTable As DataTable, ByVal operKey As Object)
        Dim dt As DataTable
        Dim dr As DataRow

        If pDataTable Is Nothing Then
            dt = New DataTable("ControlSettings")
            dt.Columns.Add("formName", GetType(String))
            dt.Columns.Add("operatorKey", GetType(String))
            dt.Columns.Add("controlName", GetType(String))
            dt.Columns.Add("propertyName", GetType(String))
            dt.Columns.Add("propertyValue", GetType(String))
        Else
            dt = pDataTable
        End If

        For Each ctl As Control In pControl.Controls
            'SaveSettings(ctl, dt, oprkey)... you could call this procedure recursively if you want to do so ... have fun
            If ctl.Tag IsNot Nothing Then
                If CStr(ctl.Tag) = "SETTABLE" Then  'you set this 
                    'Store the control's location properties - Top, Left, Height, and Width
                    dr = dt.NewRow
                    dr!formName = Me.Name
                    dr!operatorKey = operKey.ToString
                    dr!controlName = ctl.Name
                    dr!propertyName = "Top"
                    dr!propertyValue = ctl.Top.ToString
                    dt.Rows.Add(dr)

                    dr = dt.NewRow
                    dr!formName = Me.Name
                    dr!operatorKey = operKey.ToString
                    dr!controlName = ctl.Name
                    dr!propertyName = "Left"
                    dr!propertyValue = ctl.Left.ToString
                    dt.Rows.Add(dr)

                    dr = dt.NewRow
                    dr!formName = Me.Name
                    dr!operatorKey = operKey.ToString
                    dr!controlName = ctl.Name
                    dr!propertyName = "Width"
                    dr!propertyValue = ctl.Width.ToString
                    dt.Rows.Add(dr)

                    dr = dt.NewRow
                    dr!formName = Me.Name
                    dr!operatorKey = operKey.ToString
                    dr!controlName = ctl.Name
                    dr!propertyName = "Height"
                    dr!propertyValue = ctl.Height.ToString
                    dt.Rows.Add(dr)

                    dt.AcceptChanges()
                End If
            End If
        Next
        dt.WriteXml("TestControlSettings.xml", XmlWriteMode.WriteSchema)

    End Sub

    Private Sub LoadSettings(ByVal operKey As String)
        Dim dt As New DataTable
        Dim dv As DataView
        Dim drv As DataRowView
        Dim arrDR As DataRow()

        Try
            dt.ReadXml("TestControlSettings.xml")
        Catch ex As Exception
            'Not there yet. 
            Exit Sub
        End Try
        dv = dt.DefaultView
        dv.RowFilter = ("operatorKey = '" & operKey.ToString & "' AND formName = '" & Me.Name & "'")

        For Each drv In dv
            If CStr(drv!formName) = Me.Name And CStr(drv!operatorKey) = operKey Then
                Select Case CStr(drv!propertyName)
                    Case "Top"
                        CType(Me.Controls(CStr(drv!controlName)), Control).Top = CType(drv!propertyValue, Int32)
                    Case "Left"
                        CType(Me.Controls(CStr(drv!controlName)), Control).Left = CType(drv!propertyValue, Int32) 
                    Case "Width"
                        CType(Me.Controls(CStr(drv!controlName)), Control).Width = CType(drv!propertyValue, Int32) 
                    Case "Height"
                        CType(Me.Controls(CStr(drv!controlName)), Control).Height = CType(drv!propertyValue, Int32) 
                    Case Else
                        'Big Problem - get bigger hammer
                End Select
            End If
        Next
        'Delete this operator's old rows
        arrDR = dt.Select(dv.RowFilter)
        For Each dr In arrDR
            dr.Delete()
        Next
        dt.AcceptChanges()
        'Save the table for later
        m_dt = dt

    End Sub

End Class

With SaveFileDialog1
    .Filter = "Microsoft Access Database (*.mdb)|*.mdb"
    .RestoreDirectory = True
    .DefaultExt = "mdb"
    .AddExtension = True
    .OverwritePrompt = True
    If .ShowDialog() = Windows.Forms.DialogResult.OK Then
        System.IO.File.Copy(strOriginalFileName, .FileName)
    End If
End With

jds1207 wrote:

I am currently working on a data import application that will write a file to a SQL database table. I need to write a function that will pass two parameters: partnumber and format style to format the partnumber. Need ASAP!

jds1207 wrote:

I need to write a function that will pass two parameters: partnumber and format style to format the partnumber.