Mám to takto:
Private Sub Vzor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the '_44848315DataSet.sCR' table. You can move, or remove it, as needed.
Me.SCRTableAdapter.Fill(Me._44848315DataSet.sCR)
Me.SCRBindingSource.Filter = "IDS like '9900'"
'TODO: This line of code loads data into the '_44848315DataSet._TestTest' table. You can move, or remove it, as needed.
Me._TestTestTableAdapter.Fill(Me._44848315DataSet._TestTest)
'TODO: This line of code loads data into the '_44848315DataSet._Testpol' table. You can move, or remove it, as needed.
Me._TestpolTableAdapter.Fill(Me._44848315DataSet._Testpol)
'TODO: This line of code loads data into the '_44848315DataSet._Test' table. You can move, or remove it, as needed.
Me._TestTableAdapter.Fill(Me._44848315DataSet._Test)
Dim radek As Integer = 2
Dim sloupec As Integer = 2
'označí příslušnou buňku
_TestDataGridView.Item(sloupec, radek).Selected = True
'zavolá beginEdit (buňka bude v modu edit-bude možné do ní rovnou psát)
_TestDataGridView.BeginEdit(True)
End Sub
|