![](images/userface/image1.gif)
加好友 发短信
等级:贵宾
帖子:35433
积分:178524
威望:0
精华:3
注册:2013/3/30 16:36:00
|
Post By:2014/8/22 8:57:00 [只看该作者]
Do Key = cmd1.ExecuteScalar() '从后台获得顺序号 cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "' And 表名 = '" & nm & "'" If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号 Exit Do '更新成功则退出循环 End If Loop
应该放到 IF条件里面去 If dx Is Nothing Then 如果还是这样,说明 DX没有找到符合条件的行
|
|