Foxtable(狐表)用户栏目专家坐堂 → [求助]根据规则自动填充某固定数


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

主题:[求助]根据规则自动填充某固定数

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
[求助]根据规则自动填充某固定数  发帖心情 Post By:2014/9/3 16:54:00 [只看该作者]

各位老师:表中有A列和B列两数据列,只要A列中的数据大于零时,B列中会自动输入某固定数(如40),请老师们帮忙写个代码,谢谢!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动填充某数.table


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


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

DataCloChanged

If e.DataCol.name="A" AndAlso e.DataRow("A")>0 Then
   e.DataRow("B")=40
End If

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/9/3 17:01:00 [只看该作者]

谢谢老师!

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/9/3 17:27:00 [只看该作者]

老师:又遇到一个问题:如果表A和表B关联,A列是表达式列,则上面的代码就不起作用,麻烦再帮忙修改一下,谢谢!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动填充某数a.table


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


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

表B DataCloChanged

If e.DataCol.name="D" AndAlso e.DataTable.Compute("sum(D)","客户='" & e.DataRow("客户") & "'") > 0 Then
    Dim pr As DataRow = e.DataRow.GetParentRow("表A")
    If pr IsNot Nothing Then
       pr("B")=40
    End If
End If

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/9/3 17:41:00 [只看该作者]

老师:我刚测试了一下没有反应,请帮忙再看一下,谢谢!

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/9/3 17:42:00 [只看该作者]

我放错了代码,再试一下

 回到顶部