Agregar filas respecto a un número solicitado
Publicado por Jaime (33 intervenciones) el 02/07/2019 01:04:10
Hola comunidad,
Tengo un problema, cómo podría agregar filas a un DataGridView respecto a un número solicitado, es decir si yo coloco en un TextBox un número 7, se agregue ese número de filas en el DataGridView.
Trabajo en un proyecto y dependemos del número de carretes en mi código está señalado como C1. Aquí mi código:
Además me gustaría que cambiara el nombre de C1 y se agregara C2,C3,C4,C5,C6 hasta llegar al C7. las actividades siempre son las mismas, espero me puedan apoyar, les estaría muy agradecido.
Saludos y que tenga un buen día.
Tengo un problema, cómo podría agregar filas a un DataGridView respecto a un número solicitado, es decir si yo coloco en un TextBox un número 7, se agregue ese número de filas en el DataGridView.
Trabajo en un proyecto y dependemos del número de carretes en mi código está señalado como C1. Aquí mi 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
Dim Table As New DataTable
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Table.Columns.Add("Departamento", Type.GetType("System.String"))
Table.Columns.Add("Sección", Type.GetType("System.String"))
Table.Columns.Add("Operación", Type.GetType("System.String"))
Table.Columns.Add("Fecha Inicial", Type.GetType("System.DateTime"))
Table.Columns.Add("Fecha Final", Type.GetType("System.DateTime"))
DataGridView1.DataSource = Table
DataGridView1.Columns(0).HeaderCell.Style.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
DataGridView1.Columns(1).HeaderCell.Style.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
DataGridView1.Columns(2).HeaderCell.Style.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
DataGridView1.Columns(3).HeaderCell.Style.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
DataGridView1.Columns(4).HeaderCell.Style.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)
DataGridView1.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fecha1 As Date = CType(TextBox1.Text, Date)
Table.Rows.Add("Manufactura", "Cuerpo", "Corte de placa C1", fecha1, DateAdd(DateInterval.Day, 1, fecha1))
Table.Rows.Add("Manufactura", "Cuerpo", "Rolado de placa C1", DateAdd(DateInterval.Day, 1, fecha1), DateAdd(DateInterval.Day, 2, fecha1))
Table.Rows.Add("Manufactura", "Cuerpo", "Soldadura longituidal C1", DateAdd(DateInterval.Day, 2, fecha1), DateAdd(DateInterval.Day, 3, fecha1))
Table.Rows.Add("Manufactura", "Cuerpo", "Rerolado C1", DateAdd(DateInterval.Day, 3, fecha1), DateAdd(DateInterval.Day, 4, fecha1))
DataGridView1.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
DataGridView1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
End Sub
End Class
Además me gustaría que cambiara el nombre de C1 y se agregara C2,C3,C4,C5,C6 hasta llegar al C7. las actividades siempre son las mismas, espero me puedan apoyar, les estaría muy agradecido.
Saludos y que tenga un buen día.
Valora esta pregunta
0
