主题：物料需求统计

Syscmd.Project.ExportToExcel()

这个很好用，为什么不用。

“材料库存”用数据表时使用如下代码可计算，现将“材料库存”用统计分组的方式生产临时表“统计表1”替代，代码如何该？谢谢！

cmd.C
cmd.CommandText = "Select '' As 材料编码,'' As 材料名称,'' As 三周需求M2,''As 四周需求M2,''As 三周后库存M2,''As 四周后库存M2"
e.Form.Controls("Table1").Table.DataSource = cmd.ExecuteReader()
e.Form.Controls("Table1").Table.DataTable.DataRows.Clear()
Dim Int As Integer = DataTables("工作周设置").DataRows(0)("工作周起始")
Dim weeknum As Integer = DatePart("ww" , Date.Today.AddDays(- Int))
cmd.CommandText = "Select * From {DemandTable}"  '这里获取所有数据,根据工作实际,只需提取必要的数据.
Dim dt1 As DataTable = cmd.ExecuteReader()
cmd.CommandText = "Select * From {BOMTable}"
Dim dt2 As DataTable = cmd.ExecuteReader()
cmd.CommandText = "Select * From {材料库存}"
Dim dt3 As DataTable = cmd.ExecuteReader()
Dim cpvals As List(Of String) = dt1.GetValues("StokvisPN","StokvisPN Is Not Null")
Dim ljvals As List(Of String) = dt2.GetValues("材料编码","材料编码 Is Not Null")
For Each ljval As String In ljvals
    Dim nr As Row = e.Form.Controls("Table1").Table.AddNew()
    nr("材料编码") = ljval
    Dim sum As Double = 0
    For Each cpval As String In cpvals
        Dim fdr As DataRow = dt2.Find("StokvisPN = '" & cpval & "' And 材料编码 = '" & ljval & "'")
        If fdr IsNot Nothing Then
            sum + = math.round(((dt1.Compute("Sum(W" & weeknum & ")","StokvisPN = '" & cpval & "'") + _
            dt1.Compute("Sum(W" & weeknum + 1 & ")","StokvisPN = '" & cpval & "'") + _
            dt1.Compute("Sum(W" & weeknum + 2 & ")","StokvisPN = '" & cpval & "'")) * (fdr("标准宽mm")*fdr("标准长M")/1000*(1+fdr("材料损耗率")/100)+fdr("调机损耗M")*fdr("标准宽mm")/1000/125000*1000 )*1.05),1)
        End If
               Next
              Dim sum1 As Double = 0
    For Each cpval As String In cpvals
        Dim fdr1 As DataRow = dt2.Find("StokvisPN = '" & cpval & "' And 材料编码 = '" & ljval & "'")
        If fdr1 IsNot Nothing Then
            sum1 + = math.round(((dt1.Compute("Sum(W" & weeknum & ")","StokvisPN = '" & cpval & "'") + _
            dt1.Compute("Sum(W" & weeknum + 1 & ")","StokvisPN = '" & cpval & "'") + _
                        dt1.Compute("Sum(W" & weeknum + 2 & ")","StokvisPN = '" & cpval & "'") + _
            dt1.Compute("Sum(W" & weeknum + 3 & ")","StokvisPN = '" & cpval & "'")) * (fdr1("标准宽mm")*fdr1("标准长M")/1000*(1+fdr1("材料损耗率")/100)+fdr1("调机损耗M")*fdr1("标准宽mm")/1000/125000*1000 )*1.05),1)
        End If
    Next
                nr("三周需求M2") = sum
        nr("四周需求M2") = sum1
    Dim kcdr As DataRow = dt3.Find("材料编码 = '" & ljval & "'")
    If kcdr IsNot Nothing Then
        nr("三周后库存M2") = math.round((kcdr("库存数量M2") - sum),1)
                 nr("四周后库存M2") = math.round((kcdr("库存数量M2") - sum1),1)
        nr("材料名称") = kcdr("物料名称")
    End If   
Next

e.Form.Controls("Table1").Table.DataSource = cmd.ExecuteReader() 在窗体中的表如何输出Excel表呀？试了好多种方法都不行

Syscmd.Project.ExportToExcel()

这个还是管用的啊。

报错如下：

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,材料计划,Button1,Click
详细错误信息：
重载决策失败，因为没有可访问的“SaveExcel”接受此数目的参数

不行的，输出的是主表的，窗体的表没有主表呀

是当前表，不是主表，导出之前，点到哪个表，哪个表就是当前表，就导出哪个表。

不能只是看看，试试是检验对错的不二标准。

以下是引用lsy在2014-3-14 10:20:00的发言：

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

点击浏览该文件:需求管理.rar

Hi Isy,

窗体中的表是临时表吧？如果在表格中就方便了？代码怎么改呀？