主题：工料总计划进度计算每月工料计划，目标达到，但速度还是很慢

上例子

如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成本测算 - 171129 - 副本.rar

参考代码

 

systemready = False
DataTables("工料月计划").StopRedraw
DataTables("工料月计划").DataRows.Clear
MainTable = Tables("工料月计划")
Dim drs = DataTables("工料总计划").Select("计划开始 is not null")
Dim idx As Integer = 0
For Each r As DataRow In drs
    Dim sd As Date = r("计划开始")
    Dim ed As Date = r("计划完成")
    Dim count As Double = r("计划数量")
    '    Dim count As Double = r("计划金额")
    Dim sp As TimeSpan = ed-sd
    Dim avg As Double = count / (sp.TotalDays+1)
    Dim i As Double = 0
    Dim sum As Double = 0
    Do While sd <= ed
        If sd.Day = 1 OrElse sd = ed Then
            Dim dr As DataRow = DataTables("工料月计划").AddNew
            dr("项目ID") = r("项目ID")
            dr("工料ID") = r("工料ID")
            dr("清单明细ID") = r("清单明细ID")
            dr("月份") = format(sd.AddDays(-1), "yyyyMM")
            If sd = ed Then
                dr("月计划数量") = count-sum
                '                dr("月计划金额") = count-sum
            Else
                dr("月计划数量") = i*avg
                '                dr("月计划金额") = i*avg
                sum += i*avg
            End If
            i = 1
        Else
            i += 1
        End If
        sd = sd.AddDays(1)
    Loop
    idx += 1
    Dim v As Integer = idx / drs.count * 100
    StatusBar.ProgressBar.Visible =True
    StatusBar.ProgressBar.Value = v
    StatusBar.Message2= v & "%"
Next
DataTables("工料月计划").ResumeRedraw
systemready = True

不要在批量操作的时候，触发datacolchanged事件啊。

是指在批量操作之前触发datacolchanged?，还是触发其他事件?

 

看4楼代码，你做批量操作的时候，不要触发datacolchanged

 

http://www.foxtable.com/webhelp/scr/2218.htm

 

月计划的工料一类、工料二类、工料名称、工料单位、计划单价、项目名称如何体现出来？

 

根据你的逻辑，查找对应的表find，赋值。

 

 

find代码写在这个位置

 

For Each r As DataRow In drs

    Dim fdr as DataRow = DataTables("某表").find("某条件")
    Dim sd As Date = r("计划开始")