以下是引用frank_tao78在2010-7-22 15:32:22的发言：

dim sql as string
sql="update sells set Guige='" & Flex1.TextMatrix(k,1) & "'"
sql=sql & ",Huif='" & Flex1.TextMatrix(k,2) & "'"
sql=sql & ",Jiaol='" & Flex1.TextMatrix(k, 3) & "'"
sql=sql & ",Diameter='" & Flex1.TextMatrix(k, 4) & "'"
sql=sql & ",Quality='" & Flex1.TextMatrix(k, 5) & "'"
sql=sql & ",Fuhw='" & Flex1.TextMatrix(k, 6) & "'"
sql=sql & ",Box='" & Flex1.TextMatrix(k, 7) & "'"
sql=sql & ",Fuk='" & Flex1.TextMatrix(k, 8) & "'"
sql=sql & ",Wbquality='" & Flex1.TextMatrix(k, 9) & "'"
sql=sql & " where ID='" & Flex1.TextMatrix(k, 0) & "'"
看看是不是这个问题。因为textmatrix引用
另外，你ListHc设置成Integer再用Len判断，可能会有问题的。
我觉得，你这段代码出问题，估计就是数据类型上的问题，如果不嫌麻烦，索性用转换函数，规范一下。
咱是三脚猫碰上三脚猫，你只能试试看，我也是学习ing

以下是引用frank_tao78在2010-7-22 21:31:06的发言：

数据类型很容易疏忽的，养成习惯，就能避免不少小问题
另外，测试的时候，on error resume next最好不要，我吃过不少苦头