Olá pessoal,
Alguém sabe se tem como colocar uma coluna do datagrid como um combobox (lista de opções), o código abaixo carrega as informações no datagrid, eu gostaria que a coluna 2 (tipo) fosse como um combobox com as seguintes opções (C, N, D)
Private Sub lstColunas_Click()
Set dgColunas.DataSource = Nothing
adoTbCol.ConnectionString = Cnn.ConnectionString
'seleciona todas propriedades da coluna do relatório
adoTbCol.RecordSource = "select idRelatorio AS idRel, NomeColuna AS Coluna, Tipo AS Tipo, Tamanho AS Tamanho, DecimalCP AS DecimalCP, PictureCP AS PictureCP, Totalizar AS Totalizar, Imprimir AS Imprimir from relColuna where idRelatorio = " + Str(adoTb.Recordset.Fields(0).Value) + " and NomeColuna = '" + Me.lstColunas.Text + "'"
adoTbCol.Refresh
If adoTbCol.Recordset.RecordCount > 0 Then
Me.dgColunas.AllowAddNew = False
Me.dgColunas.AllowDelete = True
Else
Me.dgColunas.AllowAddNew = True
Me.dgColunas.AllowDelete = True
End If
Set dgColunas.DataSource = adoTbCol
Me.dgColunas.Columns(0).Width = 700 'idRel
Me.dgColunas.Columns(0).Locked = True 'idRel - não editável
Me.dgColunas.Columns(1).Width = 2500 'Coluna
Me.dgColunas.Columns(1).Locked = True 'Coluna - não editável
Me.dgColunas.Columns(2).Width = 800 'Tipo
Me.dgColunas.Columns(3).Width = 1000 'Tamanho
Me.dgColunas.Columns(4).Width = 1000 'Decimal
Me.dgColunas.Columns(5).Width = 1000 'Picture
Me.dgColunas.Columns(6).Width = 700 'Totalizar
Me.dgColunas.Columns(7).Width = 700 'Imprimir
End Sub
Obrigado
