主题：如何将重复出现的值记录为一个值

不能用表达式列。你要在DataColChanged事件写代码

If e.DataCol.Name = "出勤日期" OrElse e.DataCol.Name = "出租车" Then

    Dim pdr As DataRow = e.DataRow.GetParentRow("表A")

    If pdr IsNot Nothing Then

        pdr("出勤日期") = e.DataTable.GetValues("出勤日期","出租车='" & e.DataRow("出租车") & "'").Count

    End If

End If