主题：[求助]请大神帮忙看下

If e.DataCol.Name = "结算抬头" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("人工单价") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        dr = DataTables("人工单价表").Find("[姓名] = '" & e.DataRow("结算抬头") & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            For Each dc As DataCol In DataTables("人工单价表").DataCols
                If dc.name.StartsWith("人工单价_") Then
                    Dim y = dc.name.Split("_")(1)
                    If e.DataRow("编号").contains(y) Then
                        e.DataRow("人工单价") = dr(dc.name)
                    End If
                End If
            Next
        End If
    end if
End If