主题：高手们，我想统计不重复姓名的个数？

父表，DataColChanged事件

If e.DataCol.name = "人数" Then
    e.DataRow("人数") = DataTables("遗属调标明细").GetValues("姓名", "单位序号 = '" & e.DataRow("单位序号") & "'").Count
End If

子表，DataColChanged事件

If e.DataCol.Name = "姓名" Then
    DataTables("遗属调标").DataCols("人数").RaiseDataColChanged("单位序号 = '" & e.DataRow("单位序号") & "'")
End If

子表，DataRowDeleting事件

DataTables("遗属调标").DataCols("人数").RaiseDataColChanged("单位序号 = '" & e.DataRow("单位序号") & "'")