RE:pasar datos de un MSFlexGrid1 a una tabla
aqui te paso q hice
Public Sub salvar_detalle()
Dim i As Integer
Dim um, campo, ab, TE, fp, vo As String
comcotiza2.ActiveConnection = con
conecta_clie
TE = "10 dias"
fp = "cheque"
vo = "10 dias"
ab = "solo"
um = "1"
For i = 1 To MSF_detalle_coti.Rows - 1
lblitem.Caption = MSF_detalle_coti.TextMatrix(i, 0)
lblcantidad.Caption = MSF_detalle_coti.TextMatrix(i, 1)
lbluni.Caption = MSF_detalle_coti.TextMatrix(i, 2)
lblconcepto.Caption = MSF_detalle_coti.TextMatrix(i, 3)
lblpu.Caption = MSF_detalle_coti.TextMatrix(i, 4)
lbltot.Caption = MSF_detalle_coti.TextMatrix(i, 5)
'comcotiza2.CommandText = "insert into detalle(cod_detalle,item,cantidad,u_m,concepto,p_unitario,total,tiempo_entrega,forma_pago,validez_oferta)values('" & lblcod_deta.Caption & "','" & lblitem.Caption & "','" & lblcantidad.Caption & "','" & um & "','" & lblconcepto.Caption & "','" & CCur(lblpu.Caption) & "','" & CCur(lbltot.Caption) & "','" & te & "','" & fp & "','" & vo & "')"
comcotiza2.CommandText = "insert into detalle(cod_detalle,item,cantidad,u_m,concepto,p_unitario,total,cod_concepto)values('" & lblcod_deta.Caption & "','" & lblitem.Caption & "','" & lblcantidad.Caption & "','" & um & "','" & lblconcepto.Caption & "','" & CCur(lblpu.Caption) & "','" & CCur(lbltot.Caption) & "','" & Lblcodconcepto.Caption & "')"
comcotiza2.Execute
'Lblcodconcepto.caption
Next
End Sub