例如情况表datacolchanged事件
If e.DataCol.Name = "区划代码" Then
If e.NewValue > "" Then
e.DataRow("零岁_女") = DataTables("文化户口册").Compute("count(姓名)","区划代码='" & e.NewValue & "' and 性别='女' and 年龄 < 1")
e.DataRow("一岁_女") = DataTables("文化户口册").Compute("count(姓名)","区划代码='" & e.NewValue & "' and 性别='女' and 年龄 = 1")
End If
End If