以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码执行不对  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158848)

--  作者:hopestarxia
--  发布时间:2020/12/4 11:37:00
--  代码执行不对
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:dm.txt

老师,请问我的代码为什么执行不对:
对选中行的数据执行明细号生成操作

图片点击可在新窗口打开查看此主题相关图片如下:aaaaaaa.png
图片点击可在新窗口打开查看



代码有时能执行正确第一行,有时一行也不正确。请问电话问题出在哪里?

--  作者:有点蓝
--  发布时间:2020/12/4 11:43:00
--  
调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

……
    ccmd.commandtext = "select cd From dhkzl where code =  \'" & r3("号段")  & "\' "
    str5 = ccmd.ExecuteScalar()
msgbox(str5 )
    ccmd.commandtext = "select cdzj From dhkzl where code =  \'" & r3("号段")  & "\' "
    str6 = ccmd.ExecuteScalar()
msgbox(str6 )
    
    Dim sds As Integer =  right(left(r3("起始号"),str5),str6)
msgbox(sds )
    Dim eds As Integer = right(left(r3("结束号"),str5),str6)
msgbox(eds )
……