以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动输入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98030)
--  作者：jick0526
--  发布时间：2017/3/22 20:35:00
--  自动输入问题
老师，请问下，当A列的第5个数字是1-3时，B列自动输入“开”，当A列的第5个数字是4-6时，B列自动输入“关”这代码该怎么写，谢谢！
--  作者：有点色
--  发布时间：2017/3/22 22:03:00
--  

ChangedEdit事件

 

If e.Col.name = "第一列" Then
    If e.text.length >= 5 Then
        Dim d As Double = val(e.text.SubString(4,1))
        If d >= 1 AndAlso d<= 3 Then
            e.Row("第二列") = "开"
        ElseIf d >= 4 AndAlso d <= 6 Then
            e.Row("第二列") = "关"
        Else
            e.Row("第二列") = Nothing
        End If
    End If
End If