发现一个问题,我用帮助里的网络编号的例子改的代码,在表里里面新增保存一点问题都没有,但是在窗口用按钮新增以及按钮保存后,编号会将上一行已经生成的编号改变,这是怎么回事?
郁闷的不得了,我测试帮助里的例子一点问题都没有,但是我根据例子改的,一摸一样的,保存当前行的时候,上一行的编号会减少一位.当前行跟着加一位.
老大.这个是什么原因啊?
几个例子上一行是008 新增一行保存后 上一行变成了007 当前行变成了008
而且你的例子会自动升序,我的不会,但是看来看去我升了序也不行.你的升序也取消不了,什么原因啊.
就是没有呀,我测试了,只有中间改了日期后,才会有一个编号脱掉,但是这个不影响的呀.郁闷死了.
老大我的操作是这样,刚开始打开系统新增保存没有问题,但是双击打开窗口,新增,保存就会这样,按钮保存的代码是系统命令.
然后关掉窗口,再新增保存也会这样.
原来的代码中有如下加粗的一行，按道理对于已经保存的行或者非新增行，不会有任何影响的：
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
Else
pf = Format(dr("日期"),"yyMM") '否则获得编号的前缀,两位年,两位月
End If
老大我的代码是这样的.
新增:
Dim dr As DataRow = DataTables("单号定义").Find( "表名 ='" & CurrentTable.Name & "'")
If dr IsNot Nothing Then
Static Index As Integer = 99999
e.DataRow("系统单号") = dr("单号定义") & Format(Date.Today(),"yyyyMMdd") & Index
Index = Index - 1
End If
保存:
Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.IsNull("开单日期") Then '如果没有输入开单日期
e.Cancel = True '取消保存此行
MessageBox.Show("必须输入开单日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
pf = Format(dr("开单日期"),"yyyyMMdd") '否则获得系统单号的前缀,两位年,两位月
End If
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
cmd1.C
cmd2.C
cmd1.commandText = "Select Count(*) From [编号] Where [前缀] = '" & pf & "'"
If cmd1.ExecuteScalar = 0 Then '如果系统单号表不存在前缀的行,那么增加一行
cmd1.commandtext = "Insert Into 编号 (前缀, 顺序号) Values('" & pf & "',1)"
cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = '" & pf & "'"
Do
Key = cmd1.ExecuteScalar() '从后台获得顺序号
cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "'"
If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
Exit Do '更新成功则退出循环
End If
Loop
Dim dr1 As DataRow = DataTables("单号定义").Find( "表名 ='" & CurrentTable.Name & "'")
If dr1 IsNot Nothing Then
e.DataRow("系统单号") = dr1("单号定义") & pf & Format(Key,"0000")
End If
我把如果是新增就返回的去掉了,不去掉,我不能按时间修改编号.
你帮我看看,这个不解决好,我做不了其它的,纠结!
如果简单地去掉，等于每次保存，修改过其他列，但是日期没有修改的行，也会重新编号。
你可以判断日期是否修改过，才决定是否重新生成编号：
http://www.foxtable.com/help/topics/2369.htm