关于mshflexgrid,如何把它的网格内容写入数据库中.谢谢谢!

Question

自已编写代码：
    With Ms
      iLoop = 1
      For I = 1 To .Rows - 1
        If Trim(.TextMatrix(I, 15)) <> "" And CheckNumI(.TextMatrix(I, 8), True) Then  '物料id及数量
          Ssql = "insert icplansaleorderdetail (fparentid,顺序,客户型号,物料ID,数量,交货日期,备注,单位标志,基本数量,计划价,价格,金额) values (" + LFinterid + ","
          Ssql = Ssql + CStr(iLoop) + ",'" + .TextMatrix(I, 6) + "'," + .TextMatrix(I, 15) + "," + .TextMatrix(I, 8) + ",'" + .TextMatrix(I, 7)
          Ssql = Ssql + "','" + .TextMatrix(I, 12) + "'," + .TextMatrix(I, 13) + "," + CStr(IIf(.TextMatrix(I, 13) = "1", .TextMatrix(I, 8), .TextMatrix(I, 14) * .TextMatrix(I, 8)))
          Ssql = Ssql + "," + IIf(IsNumeric(.TextMatrix(I, 9)), .TextMatrix(I, 9), "0") + "," + .TextMatrix(I, 10) + "," + .TextMatrix(I, 11) + ")"
          Conn.Execute Ssql
          iLoop = iLoop + 1
        End If
      Next I
      If iLoop = 1 Then
        Conn.RollbackTrans
        MsgBox "当前表格中数据没有数据，不能被保存！", vbInformation, Ds
        Exit Sub
      End If
    End With

Answer 1

用记录集一个一个格地写入数据库也可以.注意遍例每个格.