代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

增加下列代码后，显示：

.NET Framework 版本：2.0.50727.8941

Foxtable 版本：2019.4.12.1

错误所在事件：表，生产令号，DataColChanged

详细错误信息：

调用的目标发生了异常。

表达式包含无效的字符串常量: '。

是什么原因

If e.DataCol.Name = "已入库数量" Then

If e.NewValue Is Nothing Then

e.DataRow("当月入库数量") = Nothing

Else

Dim dr1 As DataRow

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Dim Filter As String

dr1 = DataTables("入库信息").Find("[生产令号] = '" & e.DataRow("生产令号") & "' And 入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#" & "'")

If dr1 IsNot Nothing

e.DataRow("当月入库数量") = dr1("当月入库数量")

End If

[此贴子已经被作者于2019/6/5 14:00:22编辑过]

dr1 = DataTables("入库信息").Find("[生产令号] = '" & e.DataRow("生产令号") & "' And 入库时间 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")

Excel报表中本月入库列生成的值都是相同的，合计没有问题，是什么原因

下载信息 [文件大小：下载次数： ]
点击浏览该文件:辅机收发存.xls

BeforeBuild

Select Case e.Book.TempLate

Case "辅机收发存"

e.Book.Marks.Add("当月入库数量",0)

e.Book.Marks.Add("当月入库金额除税",0)

End Select

BuildDetail

Select Case e.Book.TempLate

Case "辅机收发存"

If e.DataRow IsNot Nothing AndAlso e.Region = "生产令号" Then

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Dim Filter As String

Filter = "入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#"

e.Book.Marks("当月入库数量") = val(DataTables("入库信息").find(Filter)("当月入库数量"))

e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").find(Filter)("当月入库金额除税"))

e.Book.Marks("当月入库数量合计") = val(DataTables("入库信息").Compute("sum(当月入库数量)",Filter))

e.Book.Marks("当月入库金额除税合计") = val(DataTables("入库信息").Compute("sum(当月入库金额除税)",Filter))

End If

End Select

BeforeBuild
Select Case e.Book.TempLate
    Case "辅机收发存"
        vars("数量") = 0
        vars("除税") = 0
        e.Book.Marks.Add("当月入库数量",0)
        e.Book.Marks.Add("当月入库金额除税",0)
End Select

BuildDetail
Select Case e.Book.TempLate
    Case "辅机收发存"
        If e.DataRow IsNot Nothing AndAlso e.Region = "生产令号" Then
            Dim y As Integer = Date.Today.Year
            Dim m As Integer = Date.Today.Month
            Dim dt1 As New Date(y, m, 1)
            Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
            Dim Filter As String
            Filter = "入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#"
            vars("数量") += e.DataRow("已入库数量")
            e.Book.Marks("当月入库数量") = vars("数量")
            e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").find(Filter)("当月入库金额除税"))
            e.Book.Marks("当月入库数量合计") = val(DataTables("入库信息").Compute("sum(当月入库数量)",Filter))
            e.Book.Marks("当月入库金额除税合计") = val(DataTables("入库信息").Compute("sum(当月入库金额除税)",Filter))
        End If
End Select

主题：代码