Uma caixa de combinação é um controle que permite ao usuário selecionar a partir de uma lista predefinida de valores aceitáveis ​​. O DataGrid é um controle separado, que exibe os dados do banco de dados para o usuário , da mesma forma como o desenvolvedor visualiza os dados quando olhando diretamente para as tabelas do banco . O controle de caixa de combinação não pode ser colocado no controle DataGrid. No entanto , podemos colocar a caixa de Combo "em cima de " uma coluna específica do controle DataGrid para fazê-la parecer como se fosse parte do próprio controle. Instruções
1

Crie um novo projeto Visual Basic Standard EXE. No menu, selecione " projeto ", "Componentes ". Clique na caixa de seleção ao lado de " Microsoft DataGrid Control 6.0 ( OLE) . " Clique no botão "OK" para salvar e fechar. No menu, selecione " projeto ", "Referências ". Clique na caixa de seleção ao lado de "Biblioteca 2.x Microsoft ActiveX DataObjects ", onde "x" é o número mais alto disponível. Clique no botão "OK" para salvar e fechar.
2

Adicione um novo controle DataGrid para o " Form1 ", que foi criado por padrão. O nome padrão será " DataGrid1 ". Configure a fonte de dados e outras propriedades do controle " DataGrid1 ", para que a informação correta está sendo exibido.
3

Adicione um controle de caixa de combinação para " Form1 " e defina sua propriedade visível para "Falso ". Obter a primeira posição, a altura da linha e largura da célula em " DataGrid1 " coluna que você deseja exibir na caixa de combinação e guarde cada um desses valores em variáveis ​​inteiras separadas.
4

Defina a posição valores para a caixa de combinação escondidos aos da célula o usuário clicou em " DataGrid1 " e defina a propriedade visível caixa de combinação como "True ". Isso irá posicionar a caixa de Combo diretamente em cima da célula em " DataGrid1 " e que o usuário verá uma lista suspensa de valores para escolher.
5

Código do evento clique da caixa de combinação para que, quando o usuário faz uma seleção , atualizamos o conteúdo da célula na " DataGrid1 " com o novo valor selecionado na caixa de combinação:

Se cmbMyCombo.Visible = True Then

DataGrid1 . Colunas (2). Text = cmbMyCombo.Text

End If