Postada em 20/06/2012 16:36 hs
eu faço assim:
TabMaterial.CursorLocation = adUseServer
TabMaterial.Open "Select * From CadEntMat", BancoMaterial, adOpenKeyset, adLockOptimistic, adCmdText
'inicia o processo de inclusao
Dim linha As Integer
For linha = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(linha, 0) <> "" Then
TabMaterial.AddNew
TabMaterial.Fields("NrNota") = Trim(Text12.Text)
If Text5.Text = Empty Then
TabMaterial.Fields("DataNota") = Null
Else
TabMaterial.Fields("DataNota") = Trim(Text5.Text)
End If
'aqui pega as linhas/colunas da grid e salva na tebela
TabMaterial.Fields("coditem") = MSFlexGrid1.TextMatrix(linha, 0)
TabMaterial.Fields("Nrmaterial") = MSFlexGrid1.TextMatrix(linha, 1)
TabMaterial.Fields("nomebase") = MSFlexGrid1.TextMatrix(linha, 2)
TabMaterial.Fields("quantcompra") = MSFlexGrid1.TextMatrix(linha, 3)
TabMaterial.Fields("valorcustounit") = Format(MSFlexGrid1.TextMatrix(linha, 4), "0.000000")
TabMaterial.Update
End If
Next
Do While Not MSFlexGrid1.Rows = 1
MSFlexGrid1.RemoveItem MSFlexGrid1.Rows
Loop
MsgBox "Material cadastrado com sucesso!!!", vbInformation, "ATENÇÃO USUÁRIO"
|
