主题：[求助]表B中合并数据，表A会增加相应记录，但表A分页加载时会出现错误，如何避免

 下段代码，表B中合并数据，表A会增加相应记录，但表A在窗口分页加载时会出现增加重复记录的错误，请问老师这种情况如何避免？
 
表B的DataColChanged事件：

Sel ect Case e.DataCol.Name
     Case "编号","姓名",
        If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").Find("[编号] = '" & e.DataRow("编号") & "'" )      ’表A编号不允许重复
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
            End If
            dr("编号") = e.DataRow("编号")
            dr("姓名") = e.DataRow("姓名")
        End If



dr = DataTables("表A").Find("[编号] = '" & e.DataRow("编号") & "'" )，这段代码在表A已加载的数据中查找，而不是在后台数据库查找，因此出现错误。如果表A中加载所有的数据，就不会出现错误。

我把Find改成sqlFind也出现问题。

Sel ect Case e.DataCol.Name
     Case "编号","姓名",
        If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" )      ’表A编号不允许重复
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
                dr("编号") = e.DataRow("编号")
            End If
            dr("姓名") = e.DataRow("姓名")
        End If

 谢谢老师，解决了！

 
您好，老师，上述代码测试后，还是有问题。
原因可能在于DataTable和后台数据库存储数据不同步，后台数据库不能及时反映DataTable的变化，因此会出现下面的情况
        编号          姓名
1.   0001        null
2.   0001        张三
3.   0002        null
4.   0002        李四

如果数据量大，需要分页加载，如何避免这种情况？

save一下即可

 

       If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" )      '表A编号不允许重复
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
                dr("编号") = e.DataRow("编号")
            End If
            dr("姓名") = e.DataRow("姓名")
        End If

       dr.Save

 

       If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" )      '表A编号不允许重复
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
                dr("编号") = e.DataRow("编号")
            End If
            dr("姓名") = e.DataRow("姓名")
        End If

       dr.Save

上段代码保存会出现save为非dr成员错误提示。
如果把dr.Save放在最后一个“End If”上面，可以正常编译，但是B表合并数据会提示


.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2016.7.29.1
错误所在事件：
详细错误信息：
对于造型说明无效的字符值

改成下面代码也不行

If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" )      '表A编号不允许重复
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
                dr("编号") = e.DataRow("编号")
            End If
            dr("姓名") = e.DataRow("姓名")
        End If

        DataTables("表A").Save

改成下面这样还是不行

If e.DataRow.Isnull("编号")  = False
            Dim dr As DataRow
            dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" And "[姓名] = '" & e.DataRow("姓名") & "'") 
            If dr Is Nothing Then
                dr = DataTables("表A").AddNew()
                dr("编号") = e.DataRow("编号")
            End If
            dr("姓名") = e.DataRow("姓名")
        End If

        DataTables("表A").Save

出现下面错误提示：

.NET Framework 版本：2.0.50727.8745

Foxtable 版本：2016.7.29.1

错误所在事件：表，tblDiagnoTher，DataColChanged

详细错误信息：

调用的目标发生了异常。

从字符串“[病历号] = '0009502021'”到类型“Long”的转换无效。

输入字符串的格式不正确。

老师，能否将编号和姓名作为数组一起存储呢？

重新打开项目测试。

 

If e.DataRow.Isnull("编号")  = False
    Dim dr As DataRow
    dr = DataTables("表A").SQLFind("[编号] = '" & e.DataRow("编号") & "'" )      '表A编号不允许重复
    If dr Is Nothing Then
        dr = DataTables("表A").AddNew()
        dr("编号") = e.DataRow("编号")
    End If
    dr("姓名") = e.DataRow("姓名")
    dr.Save
End If