以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  整数列取值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97898)
--  作者：jick0526
--  发布时间：2017/3/20 18:56:00
--  整数列取值问题
老师，请问下，A列有10位数（A列整数列），我想A列输入数据时，B列自动输入前6位数，代码该怎么写，谢谢！
--  作者：有点蓝
--  发布时间：2017/3/20 20:09:00
--  
表达式：IIF(len(Convert([A列],\'System.String\')) >= 6,SubString(Convert([A列],\'System.String\'),1,6),[A列])

代码：DataColChanged事件

If e.DataCol.Name = "A列" AndAlso e.DataRow.IsNull("A列") = False Then
    If CStr(e.DataRow("第二列")).Length >= 6
        e.DataRow("B列") = CStr(e.DataRow("第A列")).SubString(0,6)
    Else
        e.DataRow("B列") = e.DataRow("A列")
    End If
End If