老师 不是这个意思 ，是根据查到的结果合成的
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 Min(顺序编号) F r om {编号回收表} Where Tablename= '" & nm & "' and 前缀 = '" & pf & "' and 已用标识 = 0 Or 已用标识 Is Null"
key1 = cmd1.ExecuteScalar()
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
加好友 
发短信
Post By：2016/1/20 17:22:00 [只看该作者]
