主题：[求助]请帮我看一下保存按钮哪里错了

前面的代码修改下

    For Each dr As DataRow In DataTables(e.Form.TableName).DataRows
        If dr.RowState = DataRowState.Added Then
            xzh.Add(dr("iOrd"))
        Else If dr.RowState = DataRowState.Modified Then
            xgh.add(dr("iOrd"))
        End If
    Next

如果还出错，请说明，如何测试后出问题？

1、为什么要写 delete from ？ 你逻辑是什么？

2、不要吞掉错误，出错的话，弹出错误，建议你加入msgbox调试一下你的逻辑。

        msgbox(ex.Message)
        Connections("wjexcel").Rollback() '回滚事务,撤销所有操作
    End Try

提示错误，就是说没有find到对应的行

If dr Is Nothing Then

End If

http://www.foxtable.com/webhelp/scr/1485.htm

方法一：你iord列改成整数列

方法二：查询加上单引号  .Find("iOrd = '" & i & "'")

好像可以了，我先发出去，再试一次。

又失败了。这个表是我重我的系统里拉出来的。在我原系统里，iord列本就是整数。昨天按你的两个方法都做上去了。在我电脑上测试可以了，发布，今天他们一用，又把数据清空了。我的后台数据库是SQL2008R2.但很奇怪的是，我用上传的这个例子做，在我电脑上，是好的。很是不明白为啥。要崩溃了。

更郁闷的是，我今天测试，我电脑上没有发布的系统是可以，用发布后的系统，就不行。这是为啥，为啥，为啥啊！！！！！