USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Como ligar o True DbGrid a um Array
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
O True DbGrid é um controle completo. Você pode, por exemplo, querer ligá-lo a um array ao invés de um banco de dados (ou seja, os dados ficarão na memória). Para isso, siga os passos:

1 - Insira o True DbGrid em seu Form;
2 - Altere a propriedade DataMode dele p/ 4 - Storage;
3 - Em Project/References, adicione a biblioteca "APEX XArray Object", própria dele.

Então, use o código a seguir:

'No declarations do Form:
Dim MeuArray As New XArray
'Então, no evento Form_Load:

Private Sub Form_Load()
  'Redimensiona o array p/ ter 5 linhas (1 à 5)
  'e 2 colunas (0 à 1):
  'Array.ReDim 1, nº de linhas, 0, nº de colunas -1
  MeuArray.ReDim 1, 5, 0, 1
  'Inseri dados no array:
  MeuArray.Value(1, 0) = "Linha 1, Coluna 0"
  MeuArray.Value(1, 1) = "Linha 1, Coluna 1"
  MeuArray.Value(2, 0) = "Linha 2, Coluna 0"
  MeuArray.Value(2, 1) = "Linha 2, Coluna 1"
  MeuArray.Value(3, 0) = "Linha 3, Coluna 0"
  MeuArray.Value(3, 1) = "Linha 3, Coluna 1"
  MeuArray.Value(4, 0) = "Linha 4, Coluna 0"
  MeuArray.Value(4, 1) = "Linha 4, Coluna 1"
  MeuArray.Value(5, 0) = "Linha 5, Coluna 0"
  MeuArray.Value(5, 1) = "Linha 5, Coluna 1"
  'Atribui o array ao True DBGrid:
  Set TDBGrid1.Array = MeuArray
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página