以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于网络环境下的复杂编号的保存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40695)
--  作者：gsnake
--  发布时间：2013/9/26 20:33:00
--  关于网络环境下的复杂编号的保存问题

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 = "Insert Into 编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"
cmd1.ExecuteNonQuery

行的状态 仍然是

DataRowState.Added=true 的状态

 

退出时提示 保存表！就重复了！！ 要执行datatables("编号").").AcceptChanges()吗？
--  作者：有点甜
--  发布时间：2013/9/26 21:07:00
--  
你插入一行/更新一行数据，只是修改了数据库里面的，在狐表里并不知道已经修改了，你需要重新加载一下编号表，才会是最新的数据。
--  作者：有点甜
--  发布时间：2013/9/26 21:08:00
--  
 尽量不要保存编号表。