Private da As Data.SqlClient.SqlDataAdapter
Private ds As Data.DataSet
Private dcmd As New SqlClient.SqlCommand
Private dt As New DataTable
Private fila As DataRow
Private bdsource As BindingSource
Private Sub LlenarGrillaArticulos()
Modulo.conectar()
ds = New DataSet
da = New Data.SqlClient.SqlDataAdapter("SELECT * FROM TablaArticulos", miConexion)
ds.Tables.Add("TablaArticulos")
da.Fill(ds.Tables("TablaArticulos"))
da.Fill(dt)
ArticulosGrid.DataSource = ds.Tables("TablaArticulos")
End Sub
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Modulo.desconectar()
LlenarGrillaArticulos()
FormatearGrillaArticulos()
Dim fila2 As DataRow
BuscarArtTB.AutoCompleteCustomSource.Clear()
For Each fila2 In dt.Rows
BuscarArtTB.AutoCompleteCustomSource.Add(fila2.Item(1).ToString)
Next
ArticulosGrid.MultiSelect = False
Modulo.desconectar()
End Sub