主题：计算代码不执行

老师您好！

贴出完整代码

老师您好！

     我设计了一个综合表，这个表是从多个表中调用数据。这个综合表的结构是：

     项目                      总合计        j01_层压木     j02_ 纸板

 当月产成品净重     
当月原料出库重量     
当月综合出材率     
当月总销售收入     
当月总成本     
当月单位总成本     
当月生产成本     
当月单位生产成本     
当月产净利润     
当月产品单位利润     

 

 

 

这表第一行，是从ddpsb中计算总净重，填入总合计中，计算一月份在的订单类别为层压板的净重填入j01_c 中，计算一月份的订单类别为纸板的净重填入j01_z列中。

第二行原料出库重量是来自ylckb中。

我的代码写了一点就运行不下去了，我不知道这类的表怎么计算和填入。

 

Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim y As Integer=year(dtp.value)
Dim m As Integer = month(dtp.value)
Dim yf As String
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m))
Dim xy1 As Double
Dim xy2 As Double
Dim xy3 As Double
Dim zl1 As Double
Dim zl2 As Double
Dim zl3 As Double

Dim je1 As Double
Dim je2 As Double
Dim je3 As Double

Dim sje As Double
Dim bje As Double
'Dim dr As DataRow
Dim wr As DataRow
If m<=9
    yf="0"+cstr(m)
Else
    yf=cstr(m)
End If

'For Each dr As DataRow In DataTables("ylckb").DataRows
 je1 = DataTables("ylckb").Compute("Sum(出库_含税额)","[ckdate]>= #" & dt1 & "# And [ckdate]<= #" & dt2 & "#")

messagebox.show(je1）

next

 

 

 

当月产成品净重固定在表格第一行？当月原料出库重量固定在表格第二行？还是说不确定在哪一行？

是固定的

DataTables("综合表").datarows(1)("总合计") = DataTables("ylckb").Compute(....

老师：这句出错信息是：datarow不是datatable的成员。

DataTables("综合业务表").DataRow(0)("总合计") = DataTables("ylckb").Compute("Sum(出库_重量)","[ckdate]>= #" & dt1 & "# And [ckdate]<= #" & dt2 & "#")

 

DataTables("综合业务表").DataRows(0)("总合计") =