以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  产品编码及订货编码均不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100375)
--  作者：xusuyang
--  发布时间：2017/5/10 15:11:00
--  产品编码及订货编码均不显示
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
    End If
    e.DataRow("产品编码") = Nothing
    
    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
        End If
    End If
End If
如订货日期:2017-05-11,2017-05-11;订货编码显示为：20170511-001,20170511-002；产品名称如：麻醉包，产品编码显示为：MZB
--  作者：有点蓝
--  发布时间：2017/5/10 15:22:00
--  
再一次警告，不要重复发帖。

另外这个问题客服不是已经远程帮你处理了吗。自己把代码搞乱了再发上来是什么意思？