If e.DataCol.Name = "供应商代号" OrElse e.DataCol.Name = "物料编号" Then
If e.DataRow.Isnull("供应商代号") = False AndAlso e.DataRow.Isnull("物料编号") = False AndAlso e.DataRow.Isnull("出入库日期") = False Then
Dim dr As DataRow = DataTables("出入库B").Find("供应商代号 = '" & e.DataRow("供应商代号") & "' and 物料编号 = '" & e.DataRow("物料编号") & "' and 出入库日期 <> '" & e.DataRow("出入库日期") & "'","出入库日期 Desc")
If dr IsNot Nothing Then
e.DataRow("入库批次") = 1
Else
If dr("检验频率代号") = dr("入库批次") Then
e.DataRow("入库批次") = 1
Else
e.DataRow("入库批次") = dr("入库批次") + 1
End If
End If
End If
End If
此主题相关图片如下：图片28.jpg
上面的代码我希望查找前面数据行“入库批次”的最大值，然后决定本行应该得出什么入库批次，但是执行之后“入库批次”总是1，不会发生变化。请问是哪里的问题呢？同供应商代号、同物料编号、不同出入库日期时，“入库批次”应该依次递增的。谢谢。
加好友 
发短信
Post By：2022/6/18 8:14:00 [只看该作者]
