主题：多值字段的引用统计

If e.DataCol.Name = "工序" Then

    If e.DataRow.IsNull("工序") Then

        e.DataRow("单价") = Nothing

    Else

        Dim dj As Integer = 0

        For Each s As String In e.DataRow("工序").split(",")

            Dim dr As DataRow = DataTables("表A").find("工序='" & s & "'")

            If dr IsNot Nothing Then

                dj = dj + dr("单价")

            End If

        Next

        e.DataRow("单价") = dj

    End If

End If