Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:复制4个 定额编号,粘贴 单价计算错误。

1楼
gaoqr 发表于:2009/3/24 15:43:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工程1.table



图片点击可在新窗口打开查看此主题相关图片如下:2.gif
图片点击可在新窗口打开查看

录像时隐藏了 项目名称 列

定额编号 分别输入1、2、3、4 时,单价计算正确。(工程数量 任意输入数值)

把4个 定额编号 同时选中,复制、粘贴 ,单价计算错误。

第1个项目 单价 成为4个项目的和,后3个项目 单价 为0了。

是不是狐表不支持这样的复制、粘贴。

劳驾高手们给看一下,谢谢!




2楼
smileboy 发表于:2009/3/24 16:05:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工程1.table

3楼
gaoqr 发表于:2009/3/24 16:37:00
smileboy 版主,在我的机器中,与1楼的图示相同。
4楼
狐狸爸爸 发表于:2009/3/24 19:37:00
呵呵,这个和foxtable无关的,是你地代码问题,例如你在DataColChanged中的一行代码:

Dim r3 As Row = Tables("实体预算书.实体材料分析").AddNew

针对的就是实体预算书当前选定行的的关联子表,而不是修改的行,在粘贴的时候,选定行和修改行是不一致的。

要么修改代码,要么禁止复制粘贴。
5楼
狐狸爸爸 发表于:2009/3/24 19:38:00
如果要修改代码,可以考虑将下面的代码改为:

Dim r3 As Row = Tables("实体材料分析").AddNew
r3("序号1") = e.Datarow("序号1")


6楼
gaoqr 发表于:2009/3/25 7:04:00
以下是引用狐狸爸爸在2009-3-24 19:38:00的发言:
如果要修改代码,可以考虑将下面的代码改为:

Dim r3 As Row = Tables("实体材料分析").AddNew
r3("序号1") = e.Datarow("序号1")



老大,这样还有问题。

第1个项目 单价 正确,后3个项目追加正确,但单价没有计算。

请指点,还应怎样改动。谢谢!

7楼
gaoqr 发表于:2009/3/25 10:49:00
这个功能和报表的行高自动调整,对我来说很重要,请老大再看看。
8楼
狐狸爸爸 发表于:2009/3/25 11:01:00
我觉得实体材料分析表的DataColChanged事件代码中,下面几行同样有问题的:

MainTable.Current("rgdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'R'"),3)
MainTable.Current("cldj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'C'"),3)
MainTable.Current("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)

你设置的选定行的父行,而不是修改行的父行,我前面说过,选定行和修改行,有时在粘贴的时候不会是同一行,这样当你选定第一行进行粘贴的时候,永远只有第一行进行计算,因为MainTable.Current表示的就是选定行。

合理的代码应该是:

Dim pr As DataRow  = e.DataRow.GetParentRow("实体预算书")
If pr Isnot Nothing Then
     pr("rgdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'R'"),3)
     pr("cldj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'C'"),3)
     pr("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)
End If




9楼
gaoqr 发表于:2009/3/25 11:29:00
看来这是个难缠的问题。上面的改动结果是:第1个项目 单价 正确,后3个项目追加正确,但单价错误。3个项目的单价都是第1个项目的单价。

老大,看一下还需要怎样改。谢谢!
10楼
狐狸爸爸 发表于:2009/3/25 11:45:00
同样很多这样的代码也是不行的:

pr("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)


理由你可以自己想一下,实体与算数选定第一行的时候,Tables("实体预算书.实体材料分析"
)表示该行在实体材料分析中对应的行,也就是永远计算的是第一行,你应该改一下:

pr("jxdj") = Math.Round(DataTables("实体材料分析").compute("sum(金额)","[RCJ] = 'J'" & " And [序号1] = " & pr("序号1")),3)


前面陆陆续续提到的问题,其实都是同一个问题,老兄也应该尝试自己分析一下啊,这样进步才快啊,自己找出来的,印象才深刻。
[此贴子已经被作者于2009-3-25 11:48:51编辑过]
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.