老师！请帮查找一下
If e.DataCol.Name = "产品名称" Then
If e.DataRow.IsNull("产品名称") Then
e.DataRow("产品编码") = Nothing
Else
e.DataRow("产品编码") = GetPy(e.DataRow("产品名称"), 1)
End If
End If
If e.DataCol.Name = "订货日期" Then
If e.DataRow.IsNull("订货日期") Then
e.DataRow("产品编码") = Nothing
Else
Dim bh As String = e.DataRow("产品编码") & Format(cdate(e.DataRow("订货日期")),"yyyyMMdd")
If e.DataRow("订货编码").StartsWith(bh) = False
Dim max As String
Dim idx As Integer
If e.DataRow.IsNull("产品编码") Then
max = e.DataTable.Compute("Max(订货编码)","产品编码 is null And 订货日期= #" & e.DataRow("订货日期") & "# And [_Identify] <> " & e.DataRow("_Identify"))
Else
会出现;编译错误“If”必须以匹配的“End If”结束。错误代码：If e.Data Col.Name=“订货日期”the
加好友 
发短信
Post By：2017/5/10 13:58:00 [显示全部帖子]
