Dim dr As DataRow = e.DataRow
Dim pf As String

pf = "WLRK" & Format(dr("录入日期"),"yyMM") \'否则获得编号的前缀,两位年,两位月
If dr("入库单号").startsWith(pf) = False Then
    Dim cmd1 As New SQLCommand
    Dim cmd2 As New SQLCommand
    Dim Key As Integer
    Dim nm As String = e.DataTable.name
    cmd1.ConnectionName = "hr" \'设置数据源名称
    cmd2.ConnectionName = "hr"
    cmd1.commandText = "Select Count(*) From [编号] Where [前缀] = \'" & pf & "\' And 表名 = \'" & nm & "\'"
    If cmd1.ExecuteScalar = 0 Then \'如果编号表不存在前缀的行,那么增加一行
        cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 单据号) Values(\'" & nm & "\',\'" & pf & "\',1)"
        cmd1.ExecuteNonQuery
    End If
    cmd1.commandText = "Select [单据号] From [编号] Where [前缀] = \'" & pf & "\' And 表名 = \'" & nm & "\'"
    Do
        Key = cmd1.ExecuteScalar() \'从后台获得顺序号
        cmd2.commandText = "Update [编号] Set [单据号] = " & (Key + 1) & " Where [单据号] = " & Key & " And [前缀] = \'" & pf & "\' And 表名 = \'" & nm & "\'"
        If cmd2.ExecuteNonQuery() > 0 Then \'更新顺序号
            Exit Do \'更新成功则退出循环
        End If
    Loop
    e.DataRow("入库单号") = pf & "-" & Format(Key,"000000")
End If