不知道哪里错了，请指正 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name="子任务完成状态" Then

If e.DataRow("子任务完成状态")="已完成" Or e.DataRow("子任务完成状态")="已关闭" Then

MessageBox.show(1)

Dim dr As DataRow

dr = DataTables("任务跟踪").SQLFind(" 任务ID = '" & e.DataRow("任务ID") & "' ")

' dr = DataTables("任务跟踪").SQLFind("任务ID='34'")

Dim str As String = dr("任务_摘要")

MessageBox.show(str)

想在子表的datacolchanged事件中，当子任务完成状态列值为 "已完成" 或"已关闭"时，将父表的"任务_ID"=子表"任务ID" 的"子任务摘要"复制到父表中去，可是运行不到 MessageBox.show(str) 就报错，不知何故，即使换成下面注释的一行也报错。

问题是我测试了， e.datarow("任务ID") 值为34 ，父表中确有任务ID值等于34的行，但是父表的 "任务ID" 为表达式列=[_identity] 也为整型

确实是表达式列不能响应 datacolchanged事件的原因，现在不报错了，但是执行后，父表在前台表中及数据库中 “任务_摘要” 始终看不到值，这是什么原因啊？

MessageBox.show(dr1("任务_摘要")) 也有值，但就是表中看不到

If e.DataCol.Name="任务ID" Then

e.DataRow("子任务ID") = CurrentTable.Compute("MAX(子任务ID)", "任务ID= '" & e.DataRow("任务ID") & "'")+1

End If

Dim dr As DataRow =e.DataRow

Dim dr1 As DataRow = DataTables("任务跟踪").SQLFind(" [_identify] = '" & e.DataRow("任务ID") & "' ")

If e.DataCol.Name="子任务完成状态" Then

If e.DataRow("子任务完成状态")="已完成" Or e.DataRow("子任务完成状态")="已关闭" Then

If e.DataRow("子任务摘要") IsNot Nothing Then '如果摘要不为空返回摘要,否则返回子任务说明

dr1("任务_摘要")= e.DataRow("子任务摘要")

MessageBox.show(e.DataRow("子任务摘要"))

MessageBox.show(dr1("任务_摘要"))

Else

dr1("任务_摘要")= e.DataRow("子任务说明")

End If

' MessageBox.show(dr1("_identify"))

' MessageBox.show(dr1("任务_摘要"))

End If

MessageBox.show(dr1("_identify"))

MessageBox.show(dr1("任务_摘要"))

果然，袍哥威武，之所以没用find,是因为 datatables("表名"). 后按table键，没有find函数，我一直以为find函数只能用在tables("表名")

主题：不知道哪里错了，请指正