FLEXGRID IGUAL AO EXCEL

RICOCARDOZO 24/03/2012 00:49:15
#398134

Treze tive a seguinte idéia :
Numerar a grade inteira ou seja 1 a 50 na coluna codigo.
Ao abrir a grade ela já vai estar numerada como a do excell , dai se por exemplo eu insira algo na segunda linha 'já passa a ser update e não adnew , qualquer alteração ou mudança passa a ser update.

Tenho que criar um loop que conte a quantidade de linhas do grid e numere o con_codigo com a quantidade de linhas.
Acho que é isto

RICOCARDOZO 26/03/2012 01:05:16
#398243

Tentei fazer este teste :
Private Sub grava_dados()
TabelaContas
TB_CONTAS.LockType = adLockOptimistic
TB_CONTAS.CursorType = adOpenKeyset
TB_CONTAS.CursorLocation = adUseServer
TB_CONTAS.Open [Ô]SELECT * FROM contas order by con_codigo[Ô], BD_CAIXA

Dim codigo As Integer
codigo = 1
For F = 1 To Grade.Rows - 1
Grade.TextMatrix(F, 1) = codigo
codigo = codigo + 1
Next F

For i = 1 To Grade.Rows - 1
TB_CONTAS.AddNew
TB_CONTAS!con_codigo = Grade.TextMatrix(i, 1)
TB_CONTAS.UPDATE
Next i

End Sub

Ele joga um monte de dados duplicados tipo o primeiro for ele numera o grid certinho ja no segundo ele duplica um monte e se eu usar só o update tambem.
O que pode estar errado?