Foxtable(狐表)用户栏目专家坐堂 → 在drawcell获取显示的值 赋值到另一列


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

主题:在drawcell获取显示的值 赋值到另一列

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


加好友 发短信
等级:婴狐 帖子:98 积分:855 威望:0 精华:0 注册:2014/11/26 11:09:00
在drawcell获取显示的值 赋值到另一列  发帖心情 Post By:2014/12/25 9:17:00 [只看该作者]

在drawcell中输入
If e.Col.Name = "数量" Then
    If e.Row(e.Col.Name) IsNot Nothing AndAlso e.Row(e.Col.Name).StartsWith("=") Then
        e.text = Eval(e.Row(e.Col.Name).substring(1))
    End If
End If

这面的功能是实现 输入=1+2 显示3,我想获取 显示3的值 并赋值到 另一个新的列数量2中,求指教

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/25 9:22:00 [只看该作者]

If e.Col.Name = "数量" Then
    If e.Row.isnull(e.Col.Name)=false AndAlso e.Row(e.Col.Name).StartsWith("=") Then
        e.text = Eval(e.Row(e.Col.Name).substring(1))
    End If
End If

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


加好友 发短信
等级:婴狐 帖子:98 积分:855 威望:0 精华:0 注册:2014/11/26 11:09:00
  发帖心情 Post By:2014/12/25 10:10:00 [只看该作者]

bin 大神 你只是给我的代码复制了下 没怎么变啊

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/25 10:11:00 [只看该作者]

仔细看,动手试

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/12/25 10:43:00 [只看该作者]

以下是引用896539326在2014-12-25 10:10:00的发言:
bin 大神 你只是给我的代码复制了下 没怎么变啊

 

如果要在另一列显示计算结果,要用DataColChanged事件:

 

If e.DataCol.Name = "数量" Then

   if e.NewValue > "" AndAlso e.NewValue.StartsWith("=") then

        e.DataRow("另一列") = Eval(e.NewValue.SubString(1))

   End If

End If

 

设置完成之后,要重置一下数量列,已经输入的数据才会计算:

http://www.foxtable.com/help/topics/1469.htm

[此贴子已经被作者于2014-12-25 10:47:06编辑过]

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


加好友 发短信
等级:婴狐 帖子:98 积分:855 威望:0 精华:0 注册:2014/11/26 11:09:00
  发帖心情 Post By:2014/12/25 10:57:00 [只看该作者]

真心谢谢 大神们 节日快乐~

 回到顶部