Imports System.Data.SqlClient
Public Class Form7

    Dim DataSet1 As New DataSet
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        autogridtype()
    End Sub
    Private Sub autogridtype()
        Call main()
        Con.Open()
        Dim strSQL As String = "SELECT type,lot,loc,meas,units,pounds,onhand,Booked,Available FROM Inventory"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(strSQL, Con)
        ' DataSet nasa taas

        '*********Creates a new dataset, a datatable and adds data to it
        Dim dtTest As New DataTable("TestData")
        '**********Create a second table
        dtTest = New DataTable("Inventory")
        dtTest.Columns.Add("type", GetType(String))
        dtTest.Columns.Add("lot", GetType(String))
        dtTest.Columns.Add("loc", GetType(String))
        dtTest.Columns.Add("meas", GetType(Integer))
        dtTest.Columns.Add("units", GetType(String))
        dtTest.Columns.Add("pounds", GetType(Integer))
        dtTest.Columns.Add("Onhand", GetType(Integer))
        dtTest.Columns.Add("Booked", GetType(Integer))
        dtTest.Columns.Add("Available", GetType(Integer))

        da.Fill(DataSet1, "Inventory")
        'dtTest.LoadDataRow(New Object() {"YK", "Yukon", 31100}, True)
        With xt1
            .Table = DataSet1.Tables("Inventory")
            .DisplayMember = "type"
            .ValueMember = "lot"
            .ValueMember = "loc"
            .ValueMember = "meas"
            .ValueMember = "units"
            .ValueMember = "pounds"
            .ValueMember = "Onhand"
            .ValueMember = "Booked"
            .ValueMember = "Available"
            .ColumnsToDisplay = New String() {"Type", "lot", "Location", "Meas", "Units", "Pounds", "Onhand", "Booked", "Available"}

            '.DropDownWidth = "50"
        End With
    End Sub
End Class