[求助]自动生成不同前缀的单号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想根据“出入库类型”列来自动生成出入库单号，datacolchanged事件代码：

If e.DataCol.Name = "日期" Then

If e.DataRow.IsNull("日期") Then

e.DataRow("出入库单号") = Nothing

Else

Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") '取得编号的8位前缀

If e.DataRow("出入库单号").StartsWith(bh) = False '如果编号的前8位不符

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(出入库单号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(10,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

Select Case e.DataRow("出入库类型")

Case "采购入库"

e.DataRow("出入库单号") = "WG" & bh & Format(idx,"000")

End Select

End If

不加入select case语句输出正常，一加进来，case中间的语句就不执行了，也就是单号是空的，请老师指点一下！

另datarowadding 事件代码：

e.DataRow("日期")= Date.today

e.DataRow("出入库类型") = "采购入库"

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动单号.table

[此贴子已经被作者于2013-8-22 16:25:26编辑过]

e.DataRow("出入库类型") 不等于 "采购入库" 自然就不执行了啊.

谢谢Bin 再请教一下，我把出入库类型在窗口新增行的时候赋值也不行哦，怎么解决呀

这样你就知道原因了：

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("出入库单号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("出入库单号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(出入库单号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(10,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            Select Case e.DataRow("出入库类型")
                Case "采购入库"
                    e.DataRow("出入库单号") = "WG" & bh & Format(idx,"000")
                Case Else
                    messagebox.show("出入库类型是:" & e.DataRow("出入库类型") & ",并不等于采购入库,所以出入库单号没有赋值")
            End Select
        End If
    End If
End If

搞不定，就做个例子，让bin帮你看看。

[此贴子已经被作者于2013-8-22 16:19:13编辑过]

例子上来了，谢谢Bin

附件在哪? 请使用IE 谷歌火狐浏览器上传文件.

你判断了改变列是日期,下面怎么可以再判断改变列呢,那永远都不会执行啊

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动单号.table

明白了!

原来是这么回事，谢谢Bin !

主题：[求助]自动生成不同前缀的单号