主题：[求助]BeforeSaveDataRow代码完善

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