主题：求助，根据时间自动生成单piao号

这个实现了，现在想要把时间精细一点，需要加上具体的时间，之前只是记录年月日，请问如何解决，piao号还是按照之前的方式生成  ，就是在入库 和出库订单两个表

If e.DataCol.Name = "出库时间" Then
    If e.DataRow.IsNull("出库时间") Then
        e.DataRow("出库piao号") = Nothing
    Else
        Dim bh As String = "CK" & Format(e.DataRow("出库时间"),"yyMMddHHmmss") '取得编号的8位前缀
        If e.DataRow("出库piao号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            Dim d As Date = e.DataRow("出库时间")
            max = e.DataTable.Compute("Max(出库piao号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("出库piao号") =  bh & Format(idx,"000")
        End If
    End If
End If

出库时间列，要修改列属性

 

http://www.foxtable.com/webhelp/scr/0044.htm

 

我想用DATETIME  但是现在piao号编码和我想要的不一样了，piao号编码只要当前日期的顺序排列,不要时间在piao号里面

改成

 

If e.DataCol.Name = "出库时间" Then
    If e.DataRow.IsNull("出库时间") Then
        e.DataRow("出库piao号") = Nothing
    Else
        Dim bh As String = "CK"
        If e.DataRow("出库piao号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            Dim d As Date = e.DataRow("出库时间")
            max = e.DataTable.Compute("Max(出库piao号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("出库piao号") =  bh & Format(idx,"000")
        End If
    End If
End If

可能我没说清，我的意思是出库piao号要ck180403001 这样的，因为我用DATETIME 出库piao号是CK1804031440001  这样piao号变化太大

改成

 

If e.DataCol.Name = "出库时间" Then
    If e.DataRow.IsNull("出库时间") Then
        e.DataRow("出库piao号") = Nothing
    Else
        Dim bh As String = "CK" & Format(e.DataRow("出库时间"),"yyMMdd") '取得编号的8位前缀
        If e.DataRow("出库piao号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            Dim d As Date = e.DataRow("出库时间")
            max = e.DataTable.Compute("Max(出库piao号)","出库时间 >= #" & d & "# and 出库时间 < #" & d.adddays(1) & "#") '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("出库piao号") =  bh & Format(idx,"000")
        End If
    End If
End If

这样改后 点新增是没问题，一旦下面添加货物后 第二个订单就显示多个父行  piao号没有改变

1、先删除你原来的所有编号，然后重新生成新的编号。

 

2、如果还有出错提示，上传你做好的项目看看。

麻烦了亲