关于网络编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
cmd1.ConnectionName = "编号" '设置数据源名称
cmd2.ConnectionName = "编号"
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
e.DataRow("编号") = pf & "-" & Format(Key,"0000")

加了表名列后怎么修改这个代码?

我看看其它,目前成功.

例如：
cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = '" & pf & "'"

应该改为：

cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = '" & pf & "' And [表名] = '订单'"

老大问一个问题,这个昨日测试非常好,但是我在这个表做的窗口,为独立窗口.我在另外一个表打开这个窗口,按新增

Static Index As Integer = 99999

e.DataRow("编号") = Format(Date.Today(),"yyMM") & "-" & Index

Index = Index - 1

这个代码不起做用,必须回到那个表新增才能打开?是不是把代码要做到新增按钮中?

你肯定那里搞错了，事件代码，不管你从那里增加行，都会触发事件。

我再测试一下

估计是表头的问题.表头应该在保存时产生.

Dim dr1 As DataRow = DataTables("单号定义").Find( "表名 ='" & pd & "'")

If dr1 IsNot Nothing Then

e.DataRow("系统单号") = dr1("单号定义") & pf & Format(Key,"0000")

End If

代码是在这儿出的问题,新增已经没有问题了.在另外打开窗口按保存按钮时只会保存当前新增产生的临时号码,回到当前表不管时表新增还是窗口新增生产的号码都没有问题. 我应该怎么改比较好?

我无法理解你的问题，你用foxtable自带的实例，再别的表新建一个窗口，加入一个按钮，按钮代码：

Tables("表名").AddNew()

Tables("表名").Save()

我也不明白啊.按道理一个正常的做法而已.

主题：关于网络编号的问题