Aprende a programar desde cero con el libro "Aprender a programar. Algoritmos y fundamentos de programación orientados a la ingeniería y ciencias". 748 pgs. Editorial aprenderaprogramar.com.
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.txtIdentidad.Text <> "" Then
resultadov(txtIdentidad.Text)
If dr1.Read Then
txtVOT.Text = dr1(0).ToString
End If
dr1.Close()
If dr.Read Then
txtNOM.Text = dr(0).ToString + " " + dr(1).ToString
End If
dr.Close()
Else
MsgBox("Ingrese una cedula")
End If
llenagrid6()
End Sub Public Sub llenagrid6()
Dim row(2) As String
DataGridView2.ColumnCount = 2
DataGridView2.Columns(0).Name = "Nombre"
DataGridView2.Columns(1).Name = "Votos"
row(0) = txtNOM.Text
row(1) = txtVOT.Text
Dim rowToSave As String() = New String() {row(1), row(2)}
DataGridView2.Rows.Add(row)
End Sub
Public Sub llenagrid6()
Dim result As New DataTable()
result.Columns.Add("Candidato")
result.Columns.Add("Votos")
DataGridView2.DataSource = result
DataGridView2.Rows.Add(txtNOM.Text.Trim(), txtVOT.Text.Trim())
End Sub
Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.
Abraham Lincoln (1808-1865) Presidente estadounidense.
aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación
RSS -
WAP2