MSHFlexGrid用法详解

> "" Then rs1.Fields("备注") = flex1.TextMatrix(i, 7)
           If txtph.Text <> "" Then rs1.Fields("入库票号") = Trim(txtph.Text)
           rs1.Update
           Cnn.Execute ("update 商品信息表 set 库存数量=库存数量+" & Val(flex1.TextMatrix(i, 4)) & " where 商品名称 =''" + _
           flex1.TextMatrix(i, 1) + "''and 规格=''" + flex1.TextMatrix(i, 2) + "''")
         End If
      Next i
      rs1.Close
      rs2.Open "select * from 入库主表", Cnn, adOpenKeyset, adLockOptimistic        ''打开数据库
      rs2.AddNew
      If txtph.Text <> "" Then rs2.Fields("票号") = Trim(txtph.Text)
      If txtDate.Text <> "" Then rs2.Fields("入库日期") = Trim(txtDate.Text)
      If txt1(0) <> "" Then rs2.Fields("供应商全称") = txt1(0)
      If txt1(1) <> "" Then rs2.Fields("经手人") = txt1(1)
      rs2.Fields("入库金额") = lblSum
      rs2.Update
      rs2.Close
      ''设置控件有效或无效
      SetButtons False
End Sub
Private Sub cmdQuit_Click()
     End
End Sub