以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DoubleClick  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80318)
--  作者：huhu
--  发布时间：2016/1/20 16:15:00
--  [求助]DoubleClick
DoubleClick
双击入库单号且入库单号第3位是1则打开非插卡收货扫描窗口。
双击入库单号且入库单号第3位是2则打开插卡收货扫描窗口。
对第几位是什么怎么判断？求代码。谢谢。

If e.Col.name = "入库单号" Then
    e.Cancel = True
    Forms("非插卡收货扫描").open
End If
--  作者：大红袍
--  发布时间：2016/1/20 16:21:00
--  

Dim Str As String = e.Row("入库单号")

If str.Length >= 3 Then
   
    If str(2) = "1" Then
       
    ElseIf str(2) = "2" Then
       
    End If
End If