代码如下出现错误提示:“至少一个参数没有被指定值。”帮忙看看这个代码哪里出错了
If e.DataCol.Name Like "日期20*" Then
Dim pr As DataRow
pr = DataTables("产品").SQLFind("产品型号 = '" & e.DataRow("产品型号") & "'")
If pr IsNot Nothing Then
pr(e.DataCol.Name) = DataTables("生产计划").SQLCompute("Sum(e.DataCol.Name)", "产品型号 = '" & e.DataRow("产品型号") & "'")
End If
End If