Foxtable(狐表)用户栏目专家坐堂 → 代码


  共有2919人关注过本帖树形打印复制链接

主题:代码

帅哥哟,离线,有人找我吗?
kaituozhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
代码  发帖心情 Post By:2015/9/10 13:04: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位与银行卡代码进行比较,找到相应的归属银行填写到表内,编写了上述代码,执行不了。


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/9/10 14:37:00 [只看该作者]

前6位不是Substring(0,6)么

 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/9/10 14:53:00 [只看该作者]

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:表,查询表,DataColChanged
详细错误信息:
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length
一直提示这是什么意思

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/9/10 14:57:00 [只看该作者]

测试数据银行卡号是不是小于6位

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/10 15:03:00 [只看该作者]

加入判断

 

Select Case e.DataCol.name
    Case "银行卡号","银行账号"
        If e.DataRow("银行卡号").length > 6 Then
            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 If
End Select


 回到顶部