条件取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条件取值

共有1756人关注过本帖树形打印复制链接主题：条件取值

zoyong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

条件取值

Post By：2017/10/8 17:14:00 [显示全部帖子]

根据收入支出、交易详细给对方账号列附值

以收入支出为取值条件，取交易详细中指定的两个账号其中一串数字附值给对方账号列

注：收入时账号为第一串数字支出时：账号为第二串数字

下载信息 [文件大小：下载次数： ]
点击浏览该文件:附值.foxdb

Dim Tel As String = e.DataRow("交易详细信息")

Dim Parts() As String = Tel.Split("账号 ")

If e.DataRow("收入支出") = "收入" Then

e.DataRow("对方账号") = Parts(0)

ElseIf e.DataRow("收入支出") = "支出" Then

e.DataRow("对方账号") = Parts(1)

End If

.NET Framework 版本：2.0.50727.8689

Foxtable 版本：2017.8.19.1

错误所在事件：表，cw_lsbzzs， DataColChanged

详细错误信息：

调用的目标发生了异常。

索引超出了数组界限。

[此贴子已经被作者于2017/10/8 17:22:47编辑过]

zoyong

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/10/8 17:26:00 [显示全部帖子]

代码有效谢谢有点甜老师

我的代码错在哪里了

Dim Tel As String = e.DataRow("交易详细信息")

Dim Parts() As String = Tel.Split("账号 ")

If e.DataRow("收入支出") = "收入" Then

e.DataRow("对方账号") = Parts(0)

ElseIf e.DataRow("收入支出") = "支出" Then

e.DataRow("对方账号") = Parts(1)

End If

zoyong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/10/20 13:52:00 [显示全部帖子]

Dim Tel As String = e.DataRow("详细信息")

Dim Parts() As String = Tel.Split(" ")

If e.DataRow("用途") = Nothing Then

e.DataRow("用途") = parts(parts.Length-1)

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:核销测试.foxdb

上面代码是可用，但是不完美

要求：有用途两个字时再取值填入，没有用途时则为空

[此贴子已经被作者于2017/10/20 13:54:57编辑过]

下一主题 >> << 上一主题

主题：条件取值