Dim s,s2 As String
If e.DataRow("银行 账号").Length >=10 Then
s = e.DataRow("银行 账号").Substring(6,3)
s2 =e.DataRow("银行 账号").Substring(6,4)
End If
Dim cmd As new SQLCom mand
cmd.Comm andText = "Sel ect * from {银 行卡归属地} Where 城市地区号 = '" & s & "'and 银行全称 = '" & e.DataRow("开户银行全称") & "'"
cmd.Connec ti
Dim Values = cmd.Execut eValues
Dim cmd2 As new SQLCom mand
cmd2.Comm andText = "Sel ect * from {银 行卡归属地} Where 城市地区号 = '" & s2 & "'and 银行全称 = '" & e.DataRow("开户银行全称") & "'"
cmd2.Connec ti
Dim Values2 = cmd2.Execute Values
'
msgbox(Values2.Count)
If Values.Count > 0 Then
e.DataRow("银行 卡归属地") = Values("城市地区名")
ElseIf Values2.Count > 0 Then
msgbox(5)
msgbox(Values("城市地区名"))
e.DataRow("银行 卡归属地") = Values("城市地区名")
Else
e.DataRow("银行 卡归属地") = Nothing
End If
银行 卡归属地表中有“城市地区名”
执行到黄色部分,为什么会显示如下提示:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.11.3.1
错误所在事件:表,重要账户, DataColChanged
详细错误信息:
调用的目标发生了异常。
给定关键字不在字典中。