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

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

共有3161人关注过本帖树形打印复制链接主题：判断代码

7032175

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

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

判断代码

Post By：2014/3/26 13:06:00 [只看该作者]

第一列：值为：100

以下有三个列为添数列

条件一：在第二列添入10时，第一列值为110

条件二：第二列内有值为10，在第三列添入10时，第一列值为120

条件二：第二列内有值为10，第三列内有值为10时，在第四列添入10时，第一列值为130 不希望用公式，希望用代码解决一下，请大家帮助一下。

y2287958

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

加好友

发短信

等级：狐神帖子：4761 积分：34613 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/3/26 13:15:00 [只看该作者]

DataColChanged事件试试以下代码：可能不太严谨，思路而已

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "第二列"

dr("第一列") += dr(e.DataCol.Name)

Case "第三列"

If dr.IsNull("第二列") = False

dr("第一列") += dr(e.DataCol.Name)

End If

Case "第四列"

If dr.IsNull("第二列") = False AndAlso dr.IsNull("第三列") = False

dr("第一列") += dr(e.DataCol.Name)

End If

End Select

7032175

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

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

Post By：2014/3/26 13:39:00 [只看该作者]

有点复杂，有没有简洁一点代码，一共四个例，一个合计列，其它三个输入数时就加进合计列，如果当把数去掉时，合计列就去减少去除的数。

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/3/26 13:56:00 [只看该作者]

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

7032175

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

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

Post By：2014/3/26 13:59:00 [只看该作者]

真不好意思呵呵，我现在使用的是商业版本的打不开开发版本的

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/3/26 14:28:00 [只看该作者]

Select Case e.DataCol.Name
Case "第二列","第三列","第四列"
e.DataRow("第一列") + = IIF(e.NewValue = Nothing,0,e.NewValue) - IIF(e.OldValue = Nothing,0,e.OldValue)
End Select

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

主题：判断代码