主题：保存完数据后，整个表变成空白的，是咋回事

 老师好，我的软件出了些问题。

窗口保存按钮用于保存数据行及一些数据处理功能，数据行写入表之后，需要先保存这个数据行，然后对这个数据行进行下一步处理。

但是问题是，数据行写入后，这个表变成空白表，后续代码需要查找这一数据行的时候找不到，所以报错。这个表不管怎么刷新，数据都不显示，只有卸载掉这个表，重新加载，才能看到数据，这个时候，可以发现刚才保存的数据行是已经保存完了的。

我在代码中插一个判断语句，来看是否存在刚才写入的行，提示也是未发现。不知道是什么原因。

 

代码片段如下，见注释：

'写入R_GoodsInfo表
Dim nr_Goods As DataRow = dt_Goods.AddNew()

'写入数据的代码

nr_Goods.Save()

'写入R_StockFlow表
'其它无关代码

'-------------->出问题部分：

    dtSFlow.SQLDeleteFor("sys_Done Is Null")
    For Each drFlow As DataRow In dtSFlow.SQLSelect("sys_D")
        Dim drGoods As DataRow = DataTables("R_GoodsInfo").SQLFind("ID = '" & drFlow("BarCode") & "'")

If drGoods IsNot Nothing           '——加判断语句验证，提示未找到drGoods数据行
    MessageBox.Show("yes")
Else
    MessageBox.Show("no")
End If

'------此后代码无法进行下去了

        drGoods("Stock") = IIF(drGoods.IsNull("Stock"),0,drGoods("Stock")) + drFlow("Qty")
        drGoods.Save()
        Dim drSList As DataRow = dtSList.SQLFind("BarCode = '" & drFlow("BarCode") & "' and Shop = '" & drFlow("Shop") & "'")
        If drSList IsNot Nothing Then
            drSList.SQLSetValue("Qty",drSList("Qty") + drFlow("Qty"))
        Else
            Dim nrSList As DataRow = dtSList.SQLAddNew()
            nrSList("Shop") = drFlow("Shop")
            nrSList("BarCode") = drFlow("BarCode")
            nrSList("Qty") = drFlow("Qty")
            nrSList.Save()
        End If
        drFlow.SQLSetValue("sys_Done","D")
    Next
End If

见图

保存完数据行后，整个表变成空白的，而后用于验证的判断语句给出了不存在刚才保存的行的判断：

 

此主题相关图片如下：1.jpg

 

点击No的确定按钮后，开始报错。

 

2、严谨一点的代码就应该加上我给的那一行，您知道为什么吗？当条件不符合，该drGoods为空，不存在这个datarow，怎么引用单元格的值？这样就会报错，加上后这是当条件不成立时，暂停执行后续代码，要的就是杜绝您现在遇到的报错现象。

注意return是不会执行后面的代码的，所以return后面的ResumeRedraw是没有用的，所以每一个return之前都应该调用ResumeRedraw。

另外如果中途代码出错也会导致出错后面的代码不会执行，想上面使用到的sqlfind，返回值没有做判断直接使用，如果返回值是空值肯定就会出错。