Aveneid

VB autocomplete

Sep 28th, 2020
655
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Dim tb As New TextBox
  2.         Dim dt As New DataTable()
  3.  
  4.         If DataGridView1.CurrentCell.ColumnIndex = 2 Then
  5.  
  6.             If con.State = ConnectionState.Closed Then con.Open()
  7.             cmd = New SqlCeCommand("Select name FROM items where name like '%" & DataGridView1.CurrentCell.Value & "%'", con)
  8.             Dim da As New SqlCeDataAdapter
  9.             da.SelectCommand = cmd
  10.             da.Fill(dt)
  11.             Dim r As DataRow
  12.             For Each r In dt.Rows
  13.                 If TypeOf e.Control Is TextBox Then
  14.                     If DataGridView1.CurrentCell.ColumnIndex = 2 Then
  15.                         tb = e.Control
  16.                         tb.AutoCompleteCustomSource.Add(r.Item("name").ToString)
  17.                         tb.AutoCompleteMode = AutoCompleteMode.Suggest
  18.                         tb.AutoCompleteSource = AutoCompleteSource.CustomSource
  19.                     End If
  20.                 End If
  21.             Next
  22.             da.Dispose()
  23.             cmd.Dispose()
  24.             dt.Dispose()
  25.             con.Close()
  26.         End If
  27.         If DataGridView1.CurrentCell.ColumnIndex = 1 Then
  28.             If con.State = ConnectionState.Closed Then con.Open()
  29.  
  30.             cmd = New SqlCeCommand("Select * FROM items where code like '%" & DataGridView1.CurrentCell.Value & "%'", con)
  31.             Dim da As New SqlCeDataAdapter
  32.             da.SelectCommand = cmd
  33.             da.Fill(dt)
  34.             Dim r As DataRow
  35.             For Each r In dt.Rows
  36.                 If TypeOf e.Control Is TextBox Then
  37.                     If DataGridView1.CurrentCell.ColumnIndex = 1 Then
  38.                         Dim ac As New AutoCompleteStringCollection()
  39.                         ac.Add(r.Item("code").ToString & " " & r.Item("name").ToString & " " & r.Item("price").ToString & " Stan:" & r.Item("quantity").ToString)
  40.                         tb = e.Control
  41.                         tb.AutoCompleteCustomSource = ac
  42.                         tb.AutoCompleteMode = AutoCompleteMode.Suggest
  43.                         tb.AutoCompleteSource = AutoCompleteSource.CustomSource
  44.  
  45.                     End If
  46.                 End If
  47.             Next
  48.             da.Dispose()
  49.             dt.Dispose()
  50.             cmd.Dispose()
  51.             con.Close()
  52.         End If
RAW Paste Data