关于TRUEDBGRID的问题？

Question

看我的帖子
 grddatagrid.MoveFirst
Do While Not grddatagrid.EOF
    Totalmoney = Totalmoney + grddatagrid.Columns(4).Value
    totalquantity = totalquantity + grddatagrid.Columns(3).Value
    txtFields(7).Text = Totalmoney
    grddatagrid.Columns(4).FooterText = txtFields(7).Text
    grddatagrid.Columns(3).FooterText = totalquantity
        
        adoRS.AddNew
         For Each Textn In Me.txtnm
               Set Textn.DataSource = adoRS
         Next
           '商品名称
            txtnm(0).Text = grddatagrid.Columns(0).Value
            txtnm(1).Text = grddatagrid.Columns(2).Value
            txtnm(2).Text = grddatagrid.Columns(3).Value
            txtnm(3).Text = grddatagrid.Columns(4).Value
            txtnm(4).Text = grddatagrid.Columns(5).Value
            txtnm(5).Text = grddatagrid.Columns(6).Value
        adoRS.Update
       grddatagrid.MoveNext
  Loop
懂了吗？