主题：[求助]统计代码的问题

If e.DataCol.Name = "制版类型" Then '发生变化的是制版名称吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("制版价格表").SQLFind("制版名称 in ('" & e.DataRow("制版类型").replace(",","','") & "')" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("制版厂家") = dr("制版厂家")
        e.DataRow("制版成本") = DataTables("制版价格表").Compute("Sum(制版成本)","制版名称 in ('" & e.DataRow("制版类型").replace(",","','") & "')" )
        e.DataRow("制版费用") = DataTables("制版价格表").Compute("Sum(制版费用)","制版名称 in ('" & e.DataRow("制版类型").replace(",","','") & "')" )
    End If
End If