Visual Basic

Imports System.Data.OleDb

Public Class Tapes_info
    Private dtGlobal As New DataTable


    Private Sub Tapes_info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dtGlobal.Clear()
        Using cn As New OleDb.OleDbConnection
            Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = IO.Path.Combine(Application.StartupPath, "Backuptapes.xls"), .Provider = "Microsoft.ACE.OLEDB.12.0"}
            Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=No;")
            cn.ConnectionString = Builder.ConnectionString
            cn.Open()
            Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}

                cmd.CommandText = "SELECT TOP 5130 F1 As Tapes, F2 As Containere, F3 as ContainerRef, F4 as DateOut FROM [Tapese$]"
                Dim dr As System.Data.IDataReader = cmd.ExecuteReader
                dtGlobal.Load(dr)
                LstTape.DisplayMember = "Tapes"
                LstTape.DataSource = dtGlobal
                txtContainer.DataBindings.Add("Text", dtGlobal, "Containere")
                txtContainerRef.DataBindings.Add("Text", dtGlobal, "ContainerRef")
                txtDateOut.DataBindings.Add("Text", dtGlobal, "Dateout")

            End Using
        End Using
    End Sub





Private Sub BtnSearchDateOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearchDateOut.Click

    For i As Integer = 0 To dtGlobal.Rows.Count - 1
        If IsDBNull(dtGlobal.Rows(i)("Dateout")) Then
            dtGlobal.Rows(i)("Dateout") = ""
        End If
    Next

    Dim query = From item In dtGlobal.AsEnumerable() Where item.Field(Of String)("Dateout").StartsWith(txtSearchDateOut.Text) Select item
    If query.Count > 0 Then
        Dim newDT As DataTable = query.CopyToDataTable()

        MsgBox(newDT.Rows.Count.ToString() & " Date out found.")

        Dim frm As New Form()
        Dim dgv As New DataGridView()
        dgv.DataSource = newDT
        dgv.Refresh()
        frm.Controls.Add(dgv)
        dgv.Dock = DockStyle.Fill
        frm.Size = New Size(1400, 700)
        frm.Show()

    Else
        MsgBox("There is no Date for this found.")
    End If

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            OpenConnection()
            qry = "SELECT * FROM customer"
            dbcommand.Connection = DbConn.conn
            dbcommand.CommandText = qry
            dbadapter.SelectCommand = dbcommand
            dbadapter.Fill(stdata, "Customer")

            Dim objRpt As New CustomerRpt
            objRpt.SetDataSource(stdata.Tables("Customer"))
            rptViewer.ReportSource = objRpt
            rptViewer.RefreshReport()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try

    End Sub

Public Class Form1
    Dim cursorX, cursorY As Integer
    Dim dragging As Boolean
    Dim labelno As Integer = 1

    Private Sub Control_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        dragging = True
        cursorX = e.X
        cursorY = e.Y


        Dim label2 As New Label
        labelno += 1
        label2.Location = New Point(Label1.Location.X, Label1.Location.Y)
        label2.Name = "Label" + labelno.ToString
        label2.Text = label2.Location.ToString
        Me.Controls.Add(label2)

    End Sub

    Private Sub Control_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
        dragging = False
    End Sub

    Private Sub control_MouseMOve(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If dragging Then
            Dim ctrl As Control = CType(sender, Control)
            ctrl.Left = (ctrl.Left + e.X) - cursorX
            ctrl.Top = (ctrl.Top + e.Y) - cursorY
            ctrl.BringToFront()
        End If
    End Sub

If you have clarification please inform me.



Thanks

-----------------------------
| ARIZONA               | \/ | <-- Autocomplete Combobox (Autocompletemode = Suggest)
---------------------------------------------------------
| ARIZONA		|     	16	|	D16	|
| ALBAMA		|	18	|	A28	| <-- 3 Column Dropdown
| ALASKA		|	12	|	C34	|
---------------------------------------------------------

Private Sub LoadCombo()
        Dim dcommand As New MySqlCommand
        Dim dadapter As New MySqlDataAdapter
        Dim stdata As New DataTable
        qry = "SELECT * FROM statedetails"
        Try
            OpenConnection()
            dcommand.Connection = conn
            dcommand.CommandText = qry
            dadapter.SelectCommand = dcommand
            dadapter.Fill(stdata)
            
            Dim dbreader As MySqlDataReader = dcommand.ExecuteReader
            While dbreader.Read
                For i = 0 To stdata.Rows.Count - 1
                    cmb.Items.Add(stdata.Rows(i).Item("State"))
                    cmb.Items.Add(stdata.Rows(i).Item("OfficeId"))
                    cmb.Items.Add(stdata.Rows(i).Item("CityId"))
                Next
                cmb.DisplayMember = "State"
                cmb.ValueMember = "StateId"
            End While
            cmb.AutoCompleteMode = AutoCompleteMode.Suggest
            cmb.AutoCompleteSource = AutoCompleteSource.CustomSource
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try
    End Sub

-----------------------
| ARIZONA        | \/ | <-- Autocomplete Combobox (Autocompletemode = Suggest)
-----------------------
| ARIZONA	|
|16		|
|D16		|
| ALBAMA	|
|18		| <-- 1 Column Dropdown
|A28		|
| ALASKA	|
|12		|
|C34		|
-----------------