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


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

主题:求列计算

帅哥哟,离线,有人找我吗?
实话实说
  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列为字符型列,代码如何写,在哪写?

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/6 20:40:00 [只看该作者]

DataColChanged事件代码:
Dim r As DataRow = e.DataRow
if e.DataCol.Name = "A" AndAlso r.IsNull("A") = false Then
    Dim s As String = r("A")
    r("B") = Eval(s,r)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


 回到顶部