[求助]新增加行未使用状态 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.DataRow
Dim pf As String = "CS" '设置入库单编号前缀
Dim Key1,key2 As Integer
Dim nm As String = e.DataTable.name
cmd1.commandText = "Select Count(*) F rom {编号回收表} Where [前缀] = '" & pf & "' And Tablename= '" & nm & "' and 已用标识 = 0"
If cmd1.ExecuteScalar = 0 Then '如果编号表不存在前缀的行,那么增加一行
    e.DataRow("第一列") = Functions.Execute("getnumber","表B","第一列","2")
Else
    cmd1.CommandText = "Select top 1 * F r om {编号回收表} Where Tablename= '" & nm & "' and 前缀 = '" & pf & "' and 已用标识 = 0 Or 已用标识 Is Null order by 顺序编号"
    Dim dt As DataTable = cmd1.ExecuteReader
    Dim mydr As DataRow = dt.DataRows(0)
    key1 = mydr("顺序编号")
    cmd1.commandText = "Update {编号回收表} S et [已用标识] = 1 Where [顺序编号] = " & Key1 & " And [前缀] = '" & pf & "' And Tablename= '" & nm & "'"
    cmd1.ExecuteNonQuery()
    cmd1.CommandText = "DELETE F R OM {编号回收表} Where Tablename= '" & nm & "' and 前缀 = '" & pf & "' and 顺序编号 = " & key1 & "And 已用标识 = 1"
    cmd1.ExecuteNonQuery()
    dr("第一列")=key1'这块合成是通过查到的结果合成
End If

If dt2>=Date.Today Then

以下是引用blsu33在2016/1/21 15:54:00的发言：
好了已经达到预计效果了红袍老师能否给看看代码是否合理 5楼说了好多不知我做的是否还有纰漏

[此贴子已经被作者于2016/1/21 15:54:09编辑过]

这样做可以。能用就好。

不过，回收编号表没必要这样做，直接一列名称，一列编号即可。当然，记录信息越多当然越好。

表结构不变。只需要编写服务器端就好。客户端请求编号，服务器端，从回收表里面取出编号发回去即可。

客户端就一句代码即可。

你在数据库那里，把此列设置一个唯一约束才行，否则，代码判断的话也可能重复！

以下是引用blsu33在2016/1/21 16:48:00的发言：
红袍老师，

设为唯一键在加上判断是否重复，就不会出现重复了是吧？

是的，那就肯定不会重复了。

唯一约束，可以保证你保存的时候，此列的是唯一的。

没有白判断，你这里判读的话，是必要的。

而设置唯一约束的，是为了保证最后保存的时候不重复的最后一道防线。

1、BeforeSaveDataRow没必要用For Each啊，每一行保存的时候都会触发一次BeforeSaveDataRow事件的。

2、保存前肯定要判断，如果不判断，重复的话，就会报错了。

主题：[求助]新增加行未使用状态