Ejemplo: Gridview: insertando fila en blanco, trasladando los datos que se muestran

Gridview: 

insertando fila en blanco, trasladando los datos que se muestran

Este es un ejemplo de como se podría añadir una fila y trasladando los datos que se muestran.


-

Data hosted with ♥ by Pastebin.com - Download Raw - See Original

1. ' Gambas class file
2.  
3. Public Sub _new()
4.  
5. End
6.  
7. Public Sub Form_Open()
8.  
9.   GridView1.mode = Select.Single
10.   definir()
11.   relleno()
12.  
13. End
14.  
15. Public Sub definir()
16.  
17.   With GridView1
18.     .header = 3
19.     .rows.count = 7
20.     .columns.count = 7
21.     .Columns[0].title = "Columna 1"
22.     .Columns[1].title = "Columna 2"
23.     .Columns[2].title = "Columna 3"
24.     .Columns[3].title = "Columna 4"
25.     .Columns[4].title = "Columna 5"
26.     .Columns[5].title = "Columna 6"
27.     .Columns[6].title = "Columna 7"
28.     .Columns[0].width = 50
29.     .Columns[1].width = 60
30.     .Columns[2].width = 60
31.     .Columns[3].width = 60
32.     .Columns[4].width = 60
33.     .Columns[5].width = 60
34.     .Columns[6].width = 118
35.     .font.name = "Times"
36.     .font.size = 9
37.     .Background = 16777215
38.     .Foreground = 0
39.   End With
40.  
41. End
42.  
43.  
44. Public Sub relleno()
45.  
46.   Dim a, b As Integer
47.  
48.   For a = 0 To GridView1.Rows.Max
49.     For b = 0 To GridView1.Columns.Max
50.       GridView1[a, b].text = Str$(a) & " " & Str$(b)
51.     Next
52.   Next
53.  
54. End
55.  
56. Public Sub GridView1_Click()
57.  
58.   Dim fila, columna As Integer
59.   'aumentar fila
60.   GridView1.Rows.count += 1
61.  
62.   If GridView1.Rows.Selection.count = 0 Then
63.     Message.Info("Tienes que seleccionar una fila")
64.   Endif
65.  
66.   For fila = GridView1.Rows.Max To GridView1.Rows.Selection[0] Step -1
67.  
68.     For columna = 0 To GridView1.Columns.Max
69.  
70.       If fila - 1 > 0 Then GridView1[fila, columna].text = GridView1[fila - 1, columna].text
71.  
72.     Next
73.  
74.   Next
75.  
76.   'elimino textos de la fila que acabo de añadir
77.   For columna = 0 To GridView1.Columns.Max
78.  
79.     GridView1[GridView1.Rows.Selection[0], columna].text = ""
80.  
81.   Next
82.  
83. End

- 

Si se hace click sobre una fila, se amplia el numero de filas del gridview, se mueven todos los datos.

Codigo completo para la descarga: codigo alojado en google drive


Nota sobre el ejemplo:
Los controles Gridview  y Tableview, solo muestran los datos.
 Si los datos que estamos representando son de una base de datos, o de un fichero, el hecho de que visualmente añadamos una fila, no significa que se añada esa fila en la base de datos o al fichero.
Habría que añadir el código necesario que haga esa tarea.