Alguien me ayuda con DBgrid
Tengo en mi Datagrid estas columnas
Partida - Material - Tipo .. etc
en la columna TIPO poner un Button dentro datagrid que me despligue lo siguiente
Bambu
Telas
Plisadas
Minis
cuando me posicione en la columna de tipo
Gracias....
Partida - Material - Tipo .. etc
en la columna TIPO poner un Button dentro datagrid que me despligue lo siguiente
Bambu
Telas
Plisadas
Minis
cuando me posicione en la columna de tipo
Gracias....
agrega un listbox con los datos que queres que aparezcan y despues esto
Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
if colindex = 'Aca va el numero de la columna donde esta el boton del datagrid
With List1
.Left = DataGrid1.Left + c.Left + c.Width
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row)
.Left = DataGrid1.Left + c.Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
.Width = c.Width + 15
.Visible = True
.ZOrder 0
.SetFocus
End With
End Sub
en el list1_click pones
datagrid1.text = list1.text
creo que con eso tendria que funcar, sino fijate
saludos
Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
if colindex = 'Aca va el numero de la columna donde esta el boton del datagrid
With List1
.Left = DataGrid1.Left + c.Left + c.Width
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row)
.Left = DataGrid1.Left + c.Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
.Width = c.Width + 15
.Visible = True
.ZOrder 0
.SetFocus
End With
End Sub
en el list1_click pones
datagrid1.text = list1.text
creo que con eso tendria que funcar, sino fijate
saludos
