以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  点击按钮，窗体自动闪退  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96890)

--  作者：huhu --  发布时间：2017/3/1 19:54:00 --  点击按钮，窗体自动闪退 点击按钮，窗体自动闪退 今天发现的，已经出现了好几次了。 但是之前一直运行问题，并没有闪退的问题。

--  作者：有点色 --  发布时间：2017/3/1 20:09:00 --    加入msgbox，定位是哪句代码出错。看看那句代码触发了什么相关的事件。

--  作者：huhu --  发布时间：2017/3/2 19:47:00 --   Dim d As Date = Date.Today     Dim y As Integer = d.Year     Dim m As Integer = d.Month     Dim r As Integer = d.day     Dim bh As String = "A-ZSH" & rklb.text & kwlb.text & Format(d,"yyyyMMdd") \'生成编号的前6位,4位年,2位月.     Dim max,max2 As String     Dim idx As Integer     max = DataTables("扫描配货明细").SQLCompute("Max(收货单号)","收货单号 like \'" & bh & "%\'")     If max > "" Then \'如果存在最大编号         idx = CInt(max.Substring(bh.length)) + 1 \'获得最大编号的后五位顺序号,并加1     Else         max2 = DataTables("工单明细").SQLCompute("Max(收货单号)","收货单号 like \'" & bh & "%\'")         If max2 > "" Then             idx = CInt(max2.Substring(bh.length)) + 1 \'获得最大编号的后五位顺序号,并加1         Else             idx = 1 \'否则顺序号等于1         End If     End If 请看看红色的代码是否有问题?

--  作者：有点色 --  发布时间：2017/3/2 19:58:00 --   代码没问题，什么意思？什么没错？ [此贴子已经被作者于2017/3/2 19:58:15编辑过]