以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动输入问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97850)
--  作者：jick0526
--  发布时间：2017/3/19 23:12:00
--  [求助]自动输入问题
老师，请问下，假如在A列输入20170216，B列会自动输入201702就是前面6位数，这代码该怎么写，谢谢！
--  作者：有点蓝
--  发布时间：2017/3/20 9:35:00
--  

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "A列"
        If e.NewValue IsNot Nothing
            e.DataRow("B列") = format(e.DataRow("A列"),"yyyyMM")
        End If
End Select
--  作者：jick0526
--  发布时间：2017/3/20 17:59:00
--  
老师，上面的代码能改下吗？,我的A列是整数型的，不是日期型的，我只是想提取我输入数据的前6位数，谢谢！
--  作者：有点色
--  发布时间：2017/3/20 19:22:00
--  

Select Case e.DataCol.Name
    Case "A列"
        If e.NewValue = "" OrElse e.NewValue.Length < 6 Then
            e.DataRow("B列") = Nothing

        Else

            e.DataRow("B列") = e.DataRow("A列").SubString(0, 6)
        End If
End Select