- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]根据规则自动填充某固定数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56359)
-- 发布时间：2014/9/3 16:54:00
-- [求助]根据规则自动填充某固定数
各位老师：表中有A列和B列两数据列，只要A列中的数据大于零时，B列中会自动输入某固定数（如40），请老师们帮忙写个代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动填充某数.table |
-- 发布时间：2014/9/3 16:59:00
--
DataCloChanged
If e.DataCol.name="A" AndAlso e.DataRow("A")>0 Then
e.DataRow("B")=40
End If
-- 发布时间：2014/9/3 17:01:00
--
谢谢老师！
-- 发布时间：2014/9/3 17:27:00
--
老师：又遇到一个问题：如果表A和表B关联，A列是表达式列，则上面的代码就不起作用，麻烦再帮忙修改一下，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:自动填充某数a.table |
-- 发布时间：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
-- 发布时间：2014/9/3 17:41:00
--
老师：我刚测试了一下没有反应，请帮忙再看一下，谢谢！
-- 发布时间：2014/9/3 17:42:00
--
我放错了代码，再试一下