以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  订货编码及产品编码均不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100374)
--  作者：xusuyang
--  发布时间：2017/5/10 14:48: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/5/10 14:55:00
--  
上面的代码，有生成编号和給编号列赋值吗？
如果没有，显示什么呢？


自带的帮助很详细，图文并茂，按顺序学习即可。
如果看帮助有困难，这里也有个视频教程：

不过最详细的还是帮助文件，要掌握好的话，还是需要看帮助的。