那就相应改一下列名就行了
Select Case e.DataCol.Name
Case "产品型号","生产数量"
If e.DataRow.IsNull("产品型号") Then
For Each dc As DataCol In e.DataTable.DataCols
If dc.Name Like "配件信息_*" Then
e.DataRow(dc.Name) = Nothing
End If
Next
Else
For Each dr As DataRow In DataTables("导尿包产品配置表").Select("产品型号_" & e.DataRow("产品型号") & " <> 0 and 配件信息_名称 Is not null")
e.DataRow("配件信息_" & dr("配件信息_名称") & "_类型") = dr("配件信息_类型")
e.DataRow("配件信息_" & dr("配件信息_名称") & "_数量") = dr("产品型号_" & e.DataRow("产品型号")) * e.DataRow("生产数量")
Next
End If
End Select
另外注意把【生产数量】列改为整数类型