主题：这回明白发图了，列公式的问题

参考：http://www.foxtable.com/webhelp/scr/1451.htm

DataColChanged事件代码类似

Select Case e.DataCol.Name
    Case "职位","副科配备","实际副科"
        If e.DataRow("品名") = "信访室主任" And e.DataRow("副科配备") = 1 And e.DataRow("实际副科") = 0 Then
            Dim dr As DataRow =  DataTables("表B").AddNew
                dr("虚职机关岗位") = e.DataRow("虚职机关岗位")
                dr("职位") = e.DataRow("职位")
                dr("正科配备") = e.DataRow("正科配备")
                dr("实际正科") = e.DataRow("实际正科")
                dr("职数统计") = e.DataRow("职数统计")
        End If
End Select