Case "卷号","年度"
Dim i As Integer
If Integer.TryParse(e.DataRow("卷号"),i)Then
e.DataRow("卷号") = Format(i, "00000")
Else
e.DataRow("卷号") = e.DataRow("卷号").PadLeft(5,"0").ToUpper()
End If
If e.DataRow.Isnull("卷号") OrElse e.DataRow.IsNull("年度") OrElse e.DataRow("卷号") = "00000" Then
e.DataRow("数量") = Nothing
e.DataRow("日期") = Nothing
Else
Dim dr As DataRow = e.DataRow
Dim fdr As DataRow = DataTables("举例测试").find("卷号 = '" & dr("卷号") & "' And 年度 = '" & dr("年度") & "' and 编号 is not null and [_Identify] <> " & dr("_Identify"),"[_Identify] desc")
If fdr IsNot Nothing Then
e.DataRow("数量") = fdr("数量")
e.DataRow("日期") = fdr("日期")
End If
End If
加好友 
发短信
Post By：2019/11/15 9:38:00 [只看该作者]
