老师您好！

  我写了一个计算模块，您帮我看一下带颜色部分代码，我不知道错在哪里，计算不出来，我估计可能是后面的表达式有问题。我想计算指定月份的数据。月份用时间控件选取。

 谢谢！

Dim dtb As New DataTableBuilder("当月生产数据")

dtb.AddDef("制造令号", Gettype(String), 60)
dtb.AddDef("用户", Gettype(String), 30)

dtb.AddDef("订单类别", Gettype(String), 20)

dtb.AddDef("订单_数量", Gettype(Double))
dtb.AddDef("订单_重量", Gettype(Double))
dtb.AddDef("订单_含税额", Gettype(Double))

dtb.AddDef("已完成_数量", Gettype(Double))
dtb.AddDef("已完成_重量", Gettype(Double))
dtb.AddDef("已完成_含税额", Gettype(Double))

dtb.AddDef("已发货_数量", Gettype(Double))
dtb.AddDef("已发货_重量", Gettype(Double))
dtb.AddDef("已发货_含税额", Gettype(Double))

dtb.AddDef("未完成_数量", Gettype(Double))
dtb.AddDef("未完成_重量", Gettype(Double))
dtb.AddDef("未完成_含税额", Gettype(Double))
dtb.Build()
\'计算生产完成销售数据

Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim m As Integer = month(dtp.value)

For Each nm As String In DataTables("ddpsb").GetValues("zzh")
    Dim dr As DataRow = DataTables("当月生产数据").AddNew()
    Dim pr As DataRow = DataTables("ddpsb").find("zzh=\'" & nm & "\'")
   
 
    dr("制造令号") = nm
     dr("用户") = pr("用户")

    dr("订单类别")=pr("订单类别")
    
    

     dr("订单_数量") = DataTables("ddpsb").Compute("Sum(数量)","[zzh]= \'" & dr("制造令号") & "\'and  month(接单日期)=m")

 dr("订单_重量") = DataTables("ddpsb").Compute("Sum(净重)","[zzh]= \'" & dr("制造令号") & "\'and month(接单日期)=m")

 dr("订单_含税额") = DataTables("ddpsb").Compute("Sum(含税金额)","[zzh]= \'" & dr("制造令号") & "\'and month(接单日期)=m")

    \' dr("订单_数量") = DataTables("ddpsb").Compute("Sum(数量)","[用户] = \'" & dr("用户") & "\' "and " & filter1")
  

Next
MainTable= Tables("当月生产数据")
Tables("统计生产数据_table1").datasource=DataTables("当月生产数据")

老师您好！

    不好意思，还是上个模块，在运行时出现了错误信息：“表达式包含未定义的函数调用 month()。”

麻烦再指教！