Flytte til neste rad i en DataGridView kontroll i Visual Basic.NET program ved hjelp av noen få DataGridView egenskaper . En DataGridView kontroll gir en kraftig og fleksibel måte å vise data i et tabellformat. Bruk denne kontrollen til å vise data befolket av brukeren eller fra andre kilder, for eksempel en database . Bruk " CurrentRow " og " CurrentCell " egenskaper for å flytte til neste rad . Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre ruten på skjermen , og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " DataGridView " fra " Toolbox" -panelet for å legge til ett i skjemaet. Dobbeltklikk på " Button " for å legge til en ny knapp i skjemaet .
3

Dobbeltklikk skjemaet for å opprette en form belastning hendelsen og legge til følgende kode for å legge til fire rader med data til " DataGridView : " . . .

DataGridView1.ColumnCount = 2
p Med DataGridView1

RowHeadersVisible = False

Søyler ( 0 ) Name = " fname "

. Søyler ( 1 ) . Navn =" lname "

End With

Dim gridRow As String ( ) = {" John " , " Smith "}

Dim gridRow1 As String ( ) = {" Kitzia ", " Ramos "}

Dim gridRow2 As String ( ) = {" Oscar ", " Gonzalez "}

Dim gridRow3 As String ( ) = {" Alan ", " Duran "}
p Med Med
4

Switch tilbake for å danne utforming utsikt og dobbeltklikk på " Button1 " for å skape et klikk hendelsen for den knappen . Legg til følgende kode for å flytte til neste rad hver gang du klikker på knappen : en

Dim lastRowNum As Integer = _

( Me.DataGridView1.Rows.Count - 1 - 1 )

Dim curDataGridViewRow Som DataGridViewRow = _

DataGridView1.CurrentRow

Dim curRowNum As Integer = curDataGridViewRow.Index
p Hvis ( curRowNum > = lastRowNum ) Da

MsgBox ( " Ingen flere rader" )

Else

Dim nextRow Som DataGridViewRow = _

DataGridView1.Rows ( curRowNum + 1 )
< p > DataGridView1.CurrentCell = nextRow.Cells ( 0 )

nextRow.Selected = sant

End If
5

Trykk " F5 " for å kjøre programmet og klikk " Button1 " for å navigere til neste rad .