---

Imports System

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Guid

Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolTip

Imports Janus.Windows.GridEX

---

---

Private Function LoadgriPrices() As Boolean
        ' ******************************************************************************
        ' Description:  Load the GridEx for PRICES 
        ' Created by:        LMarshall
        ' Memo: Can be loaded from several choices made in the grbSearchItem   
        ' §§§§§§§§§§§§§  Copyright (c) 2012 dbf  All Rights Reserved §§§§§§§§§§§§§
        ' ******************************************************************************
        Try
            gblConn = New OleDbConnection(QponConnStr)
            Dim dagexLoad As New OleDbDataAdapter
            Dim dsgexLoad As New DataSet
            Dim recCount As Integer 'Tracks the number of records in the dataset dsgexLoad

            Dim mySelectQuery As String = "SELECT i.ItemsID, c.Category,  s.SubCategory, " _
                & "i.Maker, i.ItemName, i.Measure, i.Size " _
                & "FROM (Categories AS c INNER JOIN SubCategory AS s ON c.CategoriesID=s.CategoriesID) " _
                & "INNER JOIN Items AS i ON s.SubCategoryID=i.SubCategoryID;"

            Dim myConnection As New OleDbConnection(QponConnStr)
            Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
            myConnection.Open()
            dagexLoad.SelectCommand = myCommand
            dagexLoad.Fill(dsgexLoad) ‘<<<<< error here

            If Not dsgexLoad.Tables(0).Rows.Count > 0 Then
MessageBox.Show("There were no results found.", "No Results Found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Return False
                Exit Function
            Else
                recCount = dsgexLoad.Tables(0).Rows.Count
                griPrices.BoundMode = Janus.Windows.GridEX.BoundMode.Unbound 'allows us to use it in AddItem mode
                griPrices.KeepRowSettings = True 'keeps settings same when row scrolls out of sight
                Dim dstbl As New DataTable
                Dim Row As DataRow
                Dim rowNdx As Integer
                rowNdx = 0 'Set to zero index value for the DataTable tbl
                dagexLoad.Fill(dstbl)
                For Each Row In dstbl.Rows
                    Dim gexRow As GridEXRow
                    gexRow = griPrices.AddItem()
                    gexRow.BeginEdit()
                    If rowNdx = recCount Then
                        Exit For
                    End If
                    gexRow.Cells.Item("ItemsID").Value = dsgexLoad.Tables(0).Rows(rowNdx)("ItemsID").ToString()
                    gexRow.Cells.Item("Category").Value = dsgexLoad.Tables(0).Rows(rowNdx)("Category").ToString()
                    gexRow.Cells.Item("SubCategory").Value = dsgexLoad.Tables(0).Rows(rowNdx)("SubCategory").ToString()
                    gexRow.Cells.Item("Maker").Value = dsgexLoad.Tables(0).Rows(rowNdx)("Maker").ToString()
                    gexRow.Cells.Item("ItemName").Value = dsgexLoad.Tables(0).Rows(rowNdx)("ItemName").ToString()
                    gexRow.Cells.Item("Measure").Value = dsgexLoad.Tables(0).Rows(rowNdx)("Measure").ToString()
                    gexRow.Cells.Item("Size").Value = dsgexLoad.Tables(0).Rows(rowNdx)("Size").ToString()

                    gexRow.EndEdit()
                    rowNdx = rowNdx + 1 'keep track of where we are at
                Next
            End If

        Catch ex As Exception
            'Some kind of error occurred-display on screen. v2 will write to a log file
            MsgBox(ex.ToString)
        End Try
        Return True
    End Function

---

---

Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Runtime.InteropServices

Public Class NumericTextBox
    Inherits TextBox
    Private _IsDecimal As Boolean

    <System.Diagnostics.DebuggerNonUserCode()> _
    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()
        Me.TextAlign = HorizontalAlignment.Right
    End Sub

    <DefaultValue(False)>
    <ComVisible(True)> _
    Public Property IsDecimal As Boolean
        Get
            Return _IsDecimal
        End Get
        Set(ByVal value As Boolean)
            _IsDecimal = value
        End Set
    End Property

    <DefaultValue(0)>
    <Description("The text associated with the control.")> _
    Public Shadows Property Text As Double
        Get
            Dim ReturnValue As Double
            Double.TryParse(MyBase.Text, ReturnValue)
            Return ReturnValue
        End Get
        Set(ByVal value As Double)
            If Not IsDecimal Then
                MyBase.Text = FormatNumber(value, 0, TriState.True, TriState.False, TriState.True)
            Else
                MyBase.Text = FormatNumber(value, 2, TriState.True, TriState.False, TriState.True)
            End If
        End Set
    End Property

    <DefaultValue(GetType(HorizontalAlignment), "Right")> _
    Public Shadows Property TextAlign As HorizontalAlignment
        Get
            Return MyBase.TextAlign
        End Get
        Set(ByVal value As HorizontalAlignment)
            MyBase.TextAlign = value
        End Set
    End Property

    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        MyBase.OnKeyPress(e)

        If Not IsDecimal Then
            If Not Asc(e.KeyChar) = 8 And "0123456789".IndexOf(e.KeyChar) = -1 Then
                e.Handled = True
                Exit Sub
            End If
        Else
            If Not Asc(e.KeyChar) = 8 And "0123456789.".IndexOf(e.KeyChar) = -1 Then
                e.Handled = True
                Exit Sub
            End If
        End If
    End Sub

    Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
        MyBase.OnValidating(e)

        If Trim(MyBase.Text) <> "" And Not IsNumeric(MyBase.Text) Then
            MsgBox("Enter a valid numeric value.", MsgBoxStyle.Exclamation, "Invalid Data")
            e.Cancel = True
        Else
            If Not IsDecimal Then
                MyBase.Text = FormatNumber(Text, 0, TriState.True, TriState.False, TriState.True)
            Else
                MyBase.Text = FormatNumber(Text, 2, TriState.True, TriState.False, TriState.True)
            End If
        End If
    End Sub
End Class

---