Visual Basic - Crear filas en datagrid

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Crear filas en datagrid

Publicado por Josep (25 intervenciones) el 09/03/2017 09:00:57
Buenos días, tengo un lio con mi programa, después de probar varias cosas me he decidido a escribir a ver si alguien me puede echar un cable.
Tengo un datagrid, quiero poner un checkbox a cada registrro. Como no se el numero de registros lo hago con un Do until. Pero me da un error que me dice: "Se esperaba un )". Pongo un trocito de código.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim ChkBox As New DataGridViewCheckBoxColumn
ChkBox.Name = "arxiu"
 
ChkBox.FlatStyle = FlatStyle.Standard
Me.DataGridView1.Columns.Add("id", "id")
Me.DataGridView1.Columns.Add("data", "data")
Me.DataGridView1.Columns.Add("concepte", "concepte")
Me.DataGridView1.Columns.Add("preu", "preu")
Me.DataGridView1.Columns.Insert(4, ChkBox)
 
Dim i As Integer = 0
 
Dim cmd As SqlCommand
Dim cont As Integer
Dim connection As SqlConnection
 
sql = "SELECT MAX(id) FROM Dietes"
 
cmd = connection.CreateCommand()
cmd.CommandText = sql
cmd.Connection.Open()
cont = Convert.ToInt32(cmd.ExecuteScalar())
MessageBox.Show(cont)
 
Do Until i = cont
    DataGridView1.DataSource = (dt[i].id, dt[i].data, dt[i].concepte, dt[i].preu, dt[i].arxiu)
    i = i + 1
Loop


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Crear filas en datagrid

Publicado por Josep (25 intervenciones) el 09/03/2017 10:58:22
Respondo a mi pregunta por si a alguien le surge lo mismo que a mi.

1
2
3
4
5
For Each DataRow In dt.Rows
        MessageBox.Show(Convert.ToString(DataRow.Item("id")) & " " & Convert.ToString(DataRow.Item("concepte")))
        DataGridView1.Rows.Add(DataRow.Item("id"), DataRow.item("data"), DataRow.Item("concepte"), DataRow.Item("preu"), IIf(DataRow.Item("arxiu") = 0, False, True))
 
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar