用的mshflexgrid与text框结合录入多行数据并保存至数据库中，然后若要修改保存过的记录，我是先从数据库中读取数据至Mshflexgrid表中，然后修改好以后再保存至数据库中。现在发现问题有些蹊跷：有的时候改了更新不了 再改第2次的话 它又好了 还有如果是改了多行记录的话 有的就更新一条记录 其他的没变 再试几次 说不定下次又好改了
   经过这几天的反复测试 现在发现一个问题：我每次更改完当前行某列的数据后，必须要将鼠标定位在当前行，数据即可更新。若更改好数据后，鼠标定位在其他行，则数据无法更新。请问各位这该怎么解决？也就是现在只要我更改完数据后，必须将鼠标点下当前行，否则，数据更新不了，郁闷
  请大家帮我看看这个问题如何解决？好多天了，还是未解决。

这是更新的代码，其中Quality,Fuk,Wbquality为数值型，ID为自动递增项，请问哪里有问题呀？
Call OpenConn
  For i = 1 To Flex1.Rows - 1
  If Flex1.TextMatrix(Flex1.Row, 0) <> "" Then
  conn.Execute ("UPDATE Sells SET Guige='" + Flex1.TextMatrix(Flex1.Row, 1) + "',Huif='" + Flex1.TextMatrix(Flex1.Row, 2) + "',Jiaol='" + Flex1.TextMatrix(Flex1.Row, 3) + "',Diameter='" + Flex1.TextMatrix(Flex1.Row, 4) + "',Quality=" + Flex1.TextMatrix(Flex1.Row, 5) + ",Fuhw='" + Flex1.TextMatrix(Flex1.Row, 6) + "',Box='" + Flex1.TextMatrix(Flex1.Row, 7) + "',Fuk=" + Flex1.TextMatrix(Flex1.Row, 8) + " ,Wbquality=" + Flex1.TextMatrix(Flex1.Row, 9) + " where ID= " & Me.Flex1.TextMatrix(Flex1.Row, 0) & "")
  End If
  Next i
  MsgBox "记录更新成功！", 64, "提示"
  XPBtedit.Enabled = True
  XPBtsave.Enabled = False
  End If

我在别的论坛也发过这个问题，人家给的建议是：
你的代码有两个问题，
一是Flex1.Row是当前行，当你离开这行点下行是ID是对不上的，所以不会更新。
二是你这样从上向下循环，你没有修改过的行也会更新一遍，相当影响速度。
建议你用一个数组保存修改过的行的ID，判断修改过的再更新
用数组保存，不知道怎么做？

请大家帮忙呀 这段代码该如何改呀 郁闷 拖了好久了都 谢谢

非常感谢你的回复 按照你的这个思路我这样改了一下：
Private Sub save()    '保存代码
If Len(ListHc) = 0 Then Exit Sub   
Dim i As Integer
For i = 1 to flex1.Rows - 1     
If flex1.TextMatrix(flex1.Row, 0) = Trim(ListHc) Then
     conn.Execute ("UPDATE Sells SET Guige='" + Flex1.TextMatrix(i, 1) + "',Huif='" + Flex1.TextMatrix(i, 2) + "',Jiaol='" + Flex1.TextMatrix(i, 3) + "',Diameter='" + Flex1.TextMatrix(i, 4) + "',Quality=" + Flex1.TextMatrix(i, 5) + ",Fuhw='" + Flex1.TextMatrix(i, 6) + "',Box='" + Flex1.TextMatrix(i, 7) + "',Fuk=" + Flex1.TextMatrix(i, 8) + " ,Wbquality=" + Flex1.TextMatrix(i, 9) + "")
    End If
Next
End Sub

以下是click的时候，保存了ListHc值
Private Sub flex1_Click()
If flex1.Row > 0 Then
    ListHc = flex1.TextMatrix(flex1.Row, 0)
else
    ListHc = ""
End If
End Sub
但是运行后，反而将原来表里的数据都清空了，这是怎么回事呢？

设置的啊 public listhc as integer
 奇怪了 只要改下保存 数据就全清空了 不知道怎么回事了
就是这段代码：
Call OpenConn
 If Len(listhc) = 0 Then Exit Sub
dim k as integer
For k = 1 To Flex1.Rows - 1
If Flex1.TextMatrix(Flex1.Row, 0) = Trim(listhc) Then
conn.Execute ("UPDATE Sells SET Guige='" & Flex1.TextMatrix(k, 1) & "',Huif='" & Flex1.TextMatrix(k, 2) & "',Jiaol='" & Flex1.TextMatrix(k, 3) & "',Diameter='" & Flex1.TextMatrix(k, 4) & "',Quality='" & Flex1.TextMatrix(k, 5) & "',Fuhw='" & Flex1.TextMatrix(k, 6) & "',Box='" & Flex1.TextMatrix(k, 7) & "',Fuk='" & Flex1.TextMatrix(k, 8) & "',Wbquality='" & Flex1.TextMatrix(k, 9) & "'")
    End If
Next
MsgBox "记录更新成功！", 64, "提示"

又试了下 运行发现下面这段代码 “提示update语句的语法错误”不知道哪里的问题 哎
conn.Execute ("UPDATE Sells SET Guige='" & Flex1.TextMatrix(k, 1) & "',Huif='" & Flex1.TextMatrix(k, 2) & "',Jiaol='" & Flex1.TextMatrix(k, 3) & "',Diameter='" & Flex1.TextMatrix(k, 4) & "',Quality=" & Flex1.TextMatrix(k, 5) & ",Fuhw='" & Flex1.TextMatrix(k, 6) & "',Box='" & Flex1.TextMatrix(k, 7) & "',Fuk=" & Flex1.TextMatrix(k, 8) & ",Wbquality=" & Flex1.TextMatrix(k, 9) & " where ID=" & Flex1.TextMatrix(k, 0) & "")

呵呵  换上这个还是不行 还是"Update语句语法错误" 那你的意思是将ListHc设置成String再用Len判断?

解决了 将数值型的用VAL转换下即可 谢谢你啦

是的 我以前测试时 遇到有问题的 就用on error resume next 然后也没想这样做程序会有什么影响？ 反正不提示错误了