If e.DataCol.name ="套数" Then
If e.DataRow("生产piao号") IsNot Nothing AndAlso e.DataRow("制造产品号") IsNot Nothing AndAlso e.DataRow("开料参数") IsNot Nothing Then
'判断是否有同生产piao号/同制造产品号/同开料参数的行
Dim dr920 As DataRow = e.DataRow
If e.DataTable.Find("生产piao号 = '" & dr920("生产piao号") & "' And 制造产品号 = '" & dr920("制造产品号") & "' And 开料参数 = '" & dr920("开料参数") & "' ") IsNot Nothing Then
Dim dr922 As DataRow = DataTables("现场任务单").Find("生产piao号 = '" & e.DataRow("生产piao号") & "' and 制造产品号 = '" & e.DataRow("制造产品号") & "' " )
If dr922 IsNot Nothing Then
dr922("开料参数重复") = "重复"
End If
Else
Dim dr923 As DataRow = DataTables("现场任务单").Find("生产piao号 = '" & e.DataRow("生产piao号") & "' and 制造产品号 = '" & e.DataRow("制造产品号") & "' " )
If dr923 IsNot Nothing Then
dr923("开料参数重复") = "不重复"
End If
End If
End If
End If
上面这段代码,不管否有同生产piao号/同制造产品号/同开料参数的行,执行的结果都是“重复”。请问是哪里有问题呢?