以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74418)
--  作者：kaituozhe
--  发布时间：2015/9/10 14:25:00
--  代码

Select Case e.DataCol.name
Case "银行卡号","银行账号"
Dim s As String =e.DataRow("银行卡号").Substring(1,6)
Dim dr As DataRow
dr = DataTables("银行卡代码").Find("[银行卡代码] = \'" & s & "\'")
If dr IsNot Nothing Then
e.DataRow("归属银行") = dr("归属银行")
End If
End Select

想取银行卡号前6位与银行卡代码进行比较，找到相应的归属银行填写到表内，编写了上述代码，执行不了。
--  作者：大红袍
--  发布时间：2015/9/10 15:25:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74414&skin=0