主题：代码

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位与银行卡代码进行比较，找到相应的归属银行填写到表内，编写了上述代码，执行不了。

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