主题：关于自动生成编码问题

1、你参考的是哪个帖子？

 

2、你编写调用的代码怎么写的？

 

3、你现在执行报错还是怎样？

调用代码这样写啊

 

BeforeSaveDataRow事件

 

Dim dr As DataRow = e.DataRow

Dim pf As String

If dr.RowState <> DataRowState.Added Then '如果不是新增行
   
    Return '那么返回
   
ElseIf dr.IsNull("申请日期") Then '如果没有输入日期
   
    e.Cancel = True '取消保存此行
   
    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   
    Return
   
ElseIf dr.IsNull("部门代码") Then '如果没有输入日期
   
    e.Cancel = True '取消保存此行
   
    MessageBox.Show("必须输入部门代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   
    Return
   
Else
   
    pf = dr("部门代码") & "-" &Format(dr("申请日期"),"yyyyMMdd") '否则获得编号的前缀,两位年,两位月
   
End If

Dim cmd As new SQLCommand

cmd.ConnectionName = "物资出门证台账SQL"

cmd.CommandText = "usp_GetCode"

cmd.StoredProcedure = True

cmd.Parameters.Add("@deptCode",pf)

cmd.Parameters.Add("@key",1,True)

cmd.ExecuteNonQuery

Dim key As Integer  = cmd.Parameters("@key") '获取存储过程返回的日期值

e.DataRow("编号") = pf & "-" & Format(Key,"0000")