主题：[求助]合并数据同时保存数据，在哪里书写代码？

 

老师请教问题：

合并数据同时保存数据（随时读入随时保存），在哪里书写代码？怎么写？

 合并数据你是写代码操作的吗？

 

 最简单，你可以在DataColChanged事件写代码

 

If e.DataCol.Name = "第十列" Then

   e.DataRow.Save

End If

 

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

 

老师，是这样：

Case "TreatOutcome2"
        Dim dr As DataRow
        dr = DataTables("表A").Find("[编号] = '" & e.DataRow("编号") & "'" )
        Dim drs = DataTables("表B").Select("[编号] = '" & e.DataRow("编号") & "' And [TreatOutcome2] Like '%确诊%'","诊疗日期")
        If drs.count > 0 Then
            dr("第一肿瘤确诊日期") = drs(0)("诊疗日期")
        Else
            dr("第一肿瘤确诊日期") = Nothing
        End If
        If drs.count > 1 Then
            dr("第二肿瘤确诊日期") = drs(1)("诊疗日期")
        Else
            dr("第二肿瘤确诊日期") = Nothing
        End If
        If drs.count > 2 Then
            dr("第三肿瘤确诊日期") = drs(2)("诊疗日期")
        Else
            dr("第三肿瘤确诊日期") = Nothing
        End If

这段代码写入表B的Datacolchanged事件中，我想在合并数据时直接触发事件。
但是合并数据过程中在某些行就会出现如下提示：
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
关闭弹窗后，数据还可以继续合并，几十行后可能再次出现。

如果把这段代码注释掉后，就不会出现错误提示，可以正常合并数据。我以为是合并的数据暂时没有保存到后台数据库的原因，但是用e.DataRow.Save方法还是不行。

请问如果解决这一问题？

加上判断

 

dr = DataTables("表A").Find("[编号] = '" & e.DataRow("编号") & "'" )

If dr is nothing Then

    msgbox("没找到对应的行")

Else

    '你原来的代码

End If

 
谢谢老师，问题解决了。