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


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

主题:狐爸爸,万能的FOXTABLE能实现这样的功能吗?

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/26 17:06:00 [显示全部帖子]

呵呵,只要是有规律的,都可以编码实现,这没有什么能不能的问题。

踏踏实实学习,老老实实求助,但不要用这种方式提问。

 

表A和表C是怎么联系起来的? 表A的001合同怎样从表C找出对应的数据来计算?

 

[此贴子已经被作者于2011-9-26 17:12:43编辑过]

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/26 17:18:00 [显示全部帖子]

呵呵,目前来说,不是看那一段的问题,而是应该系统性的看一下帮助。

开发部分,最重要的两章是开发指南中的《编程基础》、《Foxtable编程》,这两章一通,就全通了。

 

你先尝试一下,如果有困难,我可以帮你设置一下这个计算的代码,当然你得首先理清表A和表C的关系。


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/26 21:15:00 [显示全部帖子]

以下是引用kevin11在2011-9-26 20:57:00的发言:
那有什么办法可以设置成只有分摊方法和分摊对象都选择后才计算,没选的不计算??谢谢了!!!!急死人了。。。。

 

你错得一塌糊涂,表A的DataColoChanged事件代码中,下面红色这一行是什么意思? 表A和表A存在关联吗?

 

Select Case e.DataCol.name
    Case "付款金额"
        Dim pr As DataRow = e.DataRow.GetParentRow("表A")
        If pr IsNot Nothing AndAlso pr("付款金额") > pr("合同金额")
            e.DataRow("付款金额") = e.OldValue
            messagebox.show("付款金额超过合同金额")
        End If
End Select


 

下面这样的计算更是乱来的,表达式是针对整列的,不是一行的:

 

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

象"  Then
    If e.DataRow("分摊方法") = Nothing OrElse e.DataRow("分摊对象") = Nothing Then
        DataTables("表A").DataCols("合同分摊_住宅").Expression = ""
    Else
        If e.DataRow("分摊方法") = "占地面积法" AndAlso e.DataRow("分摊对象") = "全项目" Then
            DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额"
        End If
    End If
End If

 

下面帮你解决一个问题: 那有什么办法可以设置成只有分摊方法和分摊对象都选择后才计算。

解决方法很简单,删除DataColChanged中的第二段代码,将“合同分摊_住宅”这一列的表达式设置为:

 

IIF([分摊方法] IS NOT NULL And [分摊对象]  IS NOT NULL,  占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额,NULL)

 

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

 

编程是严谨的,你很有天赋,但是明显操之过急,建议你重新看帮助,从使用指南开始看。

使用指南很重要,很多基本概念,例如关联和表达式,都是在使用指南讲述的,会使用,才谈得上开发。

[此贴子已经被作者于2011-9-26 21:19:42编辑过]

 回到顶部