狐爸爸，万能的FOXTABLE能实现这样的功能吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 狐爸爸，万能的FOXTABLE能实现这样的功能吗？

共有14469人关注过本帖树形打印复制链接主题：狐爸爸，万能的FOXTABLE能实现这样的功能吗？

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2011/9/26 18:26:00 [只看该作者]

哦,抱歉,我看错了

[此贴子已经被作者于2011-9-26 18:48:15编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2011/9/26 18:28:00 [只看该作者]

If e.DataCol.Name = "分摊方法" OrElse e.DataCol.Name = "分摊对象" Then

kevin11

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

加好友

发短信

等级：婴狐帖子：60 积分：459 威望：0 精华：0 注册：2011/9/21 11:04:00

Post By：2011/9/26 18:50:00 [只看该作者]

感谢，不知道还有什么好方法，暂时只能用这种笨办法了，呵呵

kevin11

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

加好友

发短信

等级：婴狐帖子：60 积分：459 威望：0 精华：0 注册：2011/9/21 11:04:00

回复：（mr725）If e.DataCol.Name = "分摊方法" ... 发帖心情

Post By：2011/9/26 19:34:00 [只看该作者]

我想设置如果分摊方法或者分摊对象没选的话，则不进行分摊，请帮我看看代码哪里有问题？ If e.DataCol.Name = "分摊方法" OrElse e.DataCol.Name = "分摊对象" Then If e.DataRow("分摊方法") = Nothing Or e.DataRow("分摊对象") = Nothing Then e.DataRow("合同分摊_住宅") = Nothing e.DataRow("合同分摊_购物中心") = Nothing e.DataRow("合同分摊_商务酒店") = Nothing Else If e.DataRow("分摊方法") = "占地面积法" OrElse e.DataRow("分摊对象") = "全项目" Then DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额" End If End If End If

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2011/9/26 19:50:00 [只看该作者]

e.DataRow("合同分摊_住宅") = Nothing 改为：

DataTables("表A").DataCols("合同分摊_住宅").Expression = ""

kevin11

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

加好友

发短信

等级：婴狐帖子：60 积分：459 威望：0 精华：0 注册：2011/9/21 11:04:00

回复：（狐狸爸爸）呵呵，目前来说，不是看那一段的问... 发帖心情

Post By：2011/9/26 19:52:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1(6).table

麻烦狐爸爸帮我看一下，我在表A中设置了datachanged事件代码如下： If e.DataCol.Name = "分摊方法" AndAlso e.DataCol.Name = "分摊对象" Then If e.DataRow("分摊方法") = Nothing OrElse e.DataRow("分摊对象") = Nothing Then e.DataRow("合同分摊_住宅") = Nothing Else If e.DataRow("分摊方法") = "占地面积法" AndAlso e.DataRow("分摊对象") = "全项目" Then DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额" End If End If End If 但是我只要输入合同金额后，就自动分摊了，我想设置成一定要选择分摊方法及分摊对象后才按选择的内容分摊，有一项没选都不分摊，请狐爸爸指教，谢谢。