|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Grid/FlexGrid)
|
|
 |
Título da Dica: Como ligar o True DbGrid a um Array
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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
|
|
|
|
|
