- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 编辑好的清单表如何在每月统计工程量时候自动显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104014)
-- 发布时间：2017/7/21 8:45:00
-- 编辑好的清单表如何在每月统计工程量时候自动显示
编辑好的清单表如何在每月统计工程量时候自动显示，每月我只需要按清单项目填写完成量就可以了，不需要我逐个清单进行选取[
此主题相关图片如下：1500597361(1).png
此主题相关图片如下：1500597393(1).png
[此贴子已经被作者于2017/7/21 8:45:57编辑过]
-- 发布时间：2017/7/21 9:21:00
--
把数据填充进去
http://www.foxtable.com/webhelp/scr/1533.htm
http://www.foxtable.com/webhelp/scr/0680.htm
-- 发布时间：2017/7/21 20:17:00
--
我在DataColChanged内写代码，点清单ID列重置自动关闭狐表了，
\'清单项目填充至完成明细
Dim Cols1() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
Dim Cols2() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
For Each dr1 As DataRow In DataTables("清单").Select("")
Dim dr2 As DataRow = DataTables("完成明细").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
而且即使能完成数据填充，我希望每增加一个统计日期父表行就自动填充一个清单，便于我每月填报清单完成量
-- 发布时间：2017/7/21 20:33:00
--
做个按钮执行上面代码
清单的DataColChanged事件代码设置为:
Select Case e.DataCol.Name
Case "清单ID","单位工程","清单号","清单名称","单位","单价"
Dim Cols1() As String = {"单位工程","清单号","清单名称","单位","单价"}
Dim pr As DataRow
pr = DataTables("完成明细").Find("清单ID = \'" & e.DataRow("清单ID") & "\'")
If pr Is Nothing Then
pr = DataTables("完成明细").AddNew
pr("清单ID")= e.DataRow("清单ID")
End If
For Each c As String In Cols1
pr(c)= e.DataRow(c)
Next
End Select
-- 发布时间：2017/7/22 10:13:00
--
找不到数据填充器在什么地方
-- 发布时间：2017/7/22 10:32:00
--
看2楼帮助，指的是使用代码进行填充。不会上传实例说明
-- 发布时间：2017/8/1 17:49:00
--
按2楼代码编写，还是搞不起来，请老师指教！
-- 发布时间：2017/8/1 17:51:00
--
按老师的方法自己却做不了，上传附件请老师指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成本测算170731-2.rar |
-- 发布时间：2017/8/1 18:29:00
--
统计的datacolchanged事件
If e.DataCol.Name = "统计日期" Then
Dim Cols1() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
Dim Cols2() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
For Each dr1 As DataRow In DataTables("清单").Select("")
Dim dr2 As DataRow = DataTables("完成明细").find("清单id = \'" & dr1("清单id") & "\'")
If dr2 Is Nothing Then dr2 = DataTables("完成明细").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("统计id") = e.DataRow("_Identify")
Next
End If
-- 发布时间：2017/8/1 22:13:00
--
新增统计日期后为什么会将前一个统计日期内完成明细全部转移到新增统计日期的子表完成明细中，我希望实现每个统计日期都能自动填充清单，便于填写各期完成量
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成本测算170731-3.zip |