表B中datacolchanged事件程序统计数据写到表A中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有A表单位信息表，B表人员信息表，并以所在单位建立关联，现想在B表中的“编制类型”列发生变化时自动统计在A表中的“行政编制”、“事业编制”、“工勤编制”三列中，在表B中的datacolchanged事件中编辑了如下程序后总是报错，请高手指点：

If e.DataCol.Name = "编制类型" Then

Dim Values As New List(Of String) From {"行政编制", "事业编制", "工勤编制"}

For Each Value As String In Values

If Value = "行政编制" Then

DataTables("表A").dataRows("实有_行政编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='行政编制'")

ElseIf Value = "事业编制" Then

DataTables("表A").dataRows("实有_事业编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='事业编制'")

ElseIf Value = "工勤编制" Then

DataTables("表A").datarows("实有_工勤编制") = DataTables("表B").Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='工勤编制'")

Exit For

End If

主题：表B中datacolchanged事件程序统计数据写到表A中