Public Class Form1
Dim ds As New DataSet("myDS")
Dim tempTabRegioni As DataTable = New DataTable
Dim cl As New Class1
Dim query As String
Dim indice As Integer = 0
Dim nuovaRiga As DataRow
Private Sub SaveItem_Click(sender As Object, e As EventArgs) Handles SaveItem.Click
Me.Validate()
Me.REGIONIBindingSource.EndEdit()
tempTabRegioni.Rows(indice).Item(1) = "ABBRUZZO"
If ds.HasChanges Then
ds.AcceptChanges()
REGIONITableAdapter.Update(TabelleENASDataSet)
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cl.connessione()
query = "Select cr,regione from regioni order by regione"
tempTabRegioni = cl.tabella(query)
DGV.DataSource = tempTabRegioni
ds.Tables.Add(tempTabRegioni)
aggiornadb()
End Sub
Sub aggiornadb()
CRTextBox.Text = tempTabRegioni.Rows(indice).Item(0)
REGIONETextBox.Text = tempTabRegioni.Rows(indice).Item(1)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conta = tempTabRegioni.Select("regione ='ABBRUZZO'")
MsgBox("trovati record:" & Val(conta))
End Sub
