- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]计算数位 然后打开窗口的代码。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94241)
-- 发布时间：2016/12/19 17:12:00
-- [求助]计算数位 然后打开窗口的代码。
Dim tp As Integer
Dim bc As String
bc = Forms("销售").Controls("TextBox产品编码").Value
tp = （计算出 bc 是几位数 ）
If tp = 16
Dim frm As WinForm.Form
frm = Forms("结算")
frm.Open()
End If
求老师帮忙， 需要计算出， bc是几位数， 如果是16位。 那么打开 结算窗口。
TP那边要用到什么公式。
-- 发布时间：2016/12/19 17:20:00
--
Dim tp As Integer
Dim bc As String
bc = Forms("销售").Controls("TextBox产品编码").Value
tp = bc.Length
If tp = 16 then
-- 发布时间：2016/12/19 18:57:00
--
此主题相关图片如下：qq图片20161219185802.png
老师，代码没问题， 但是TextBox产品编码 这个空间如果是空， 或者开始键入的话，就会跳出上面那个 错误框。
-- 发布时间：2016/12/19 20:17:00
--
Dim tp As Integer
Dim bc As String
bc = Forms("销售").Controls("TextBox产品编码").Value
If bc > "" andalso bc.Length = 16 then
......