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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求列计算

共有20013人关注过本帖树形打印复制链接主题：求列计算

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

求列计算

Post By：2009/4/6 20:22:00 [显示全部帖子]

在A列录入1+2*3，B列得计算结果，整数。A、B列为字符型列，代码如何写，在哪写？

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/6 21:17:00 [显示全部帖子]

不好意思,B列为整数型,请帮我改一下.另外,清楚A列的数据后B列的数据并不空

[此贴子已经被作者于2009-4-6 21:25:47编辑过]

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2009/4/6 21:56:00 [显示全部帖子]

以下是引用程兴刚在2009-4-6 21:37:00的发言：

这样试试：（我没文件，没有测试）

Dim r As DataRow = e.DataRow
Dim s As String = e.DataRow("A")
if e.DataCol.Name = "A" Then
   if r.IsNull("A") = true Then
      r("B") = nothing
   else
      r("B") = Eval(s,r)
   end if
End If

[此贴子已经被作者于2009-4-6 21:39:09编辑过]

测试通过,就是这样.谢啦

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

主题：求列计算