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

请帮看一下保存按钮哪里错了，前面测试好好的，保存没有问题，发布了，昨天他们说一保存数据就清没了，我测试真有这个问题，就把数据库事务代码给隐了，隐了后当时测试可以的，又发布，结果今天又不行了。真搞不明白为啥。请大神帮确认下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

晕了，百度浏览器插不进附件了。

前面的代码修改下

 

    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调试一下你的逻辑。

    Catch ex As Exception '如果出错

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

此主题相关图片如下：qq截图20170308153750.png

逻辑就是，从变动处开始，删除后台，然后把从变动处开始的行再插入数据库。

 

直接更新后台数据不行吗，为什么要先删除再插入？

这是其它平台的数据库。哪个iOrd的值基本上等于行号，如果有插入时，从插入的这一行开始，后面的行iOrd全加了1，如果没有插入行，只是修改行，哪iOrd是不变的。所以想省事一点。从有变动或更新的行开始，后台数据全做掉，然后重新按当前修改的表建进去。

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

 

If dr Is Nothing Then

 

End If

 

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

 

此主题相关图片如下：qq截图20170308161541.png


此主题相关图片如下：qq图片20170308161757.png

我这里明明有2，他提示2的时候找不到了，这让我如何理解啊。

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

 

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