以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  截取指定位置的字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130810)
--  作者：爱相随
--  发布时间：2019/2/2 9:46:00
--  截取指定位置的字符
老师，我要截取“银行账号”列最后四位字符，下列代码错在哪里呢？？麻烦老师指点，谢谢！！
If e.DataCol.Name = "银行账号" Then \'发生变化的是产品编号吗?
   Dim S As String 
   e.DataRow("账号") = S.SubString("银行账号".Length - 4) \'获得右边4个字符
End If
--  作者：有点蓝
--  发布时间：2019/2/2 9:50:00
--  
If e.DataCol.Name = "银行账号" AndAlso e.newvalue > "" AndAlso e.newValue.length > 3 Then \'发生变化的是产品编号吗?
    e.DataRow("账号") = e.newValue.SubString(e.newValue.Length - 4) \'获得右边4个字符
End If
--  作者：爱相随
--  发布时间：2019/2/2 10:10:00
--  
谢谢老师
如果要把三列的字符按顺序组合成一列字符串，请教代码。
如第一列是开户行（如浦发银行），第二列是支行名称（如贵阳支行），第三列是账户号尾数四位（2569），求第四列的代码，将第一、二、三列合并在一起得到（浦发银行贵阳支行2569）
--  作者：有点蓝
--  发布时间：2019/2/2 10:29:00
--  
e.DataRow("第一列")  &  e.DataRow("第二列")  & ......