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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135876)

--  作者：13775189031
--  发布时间：2019/6/5 13:44:00
--  代码

增加下列代码后，显示：
.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
End If
End If

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

--  作者：y2287958
--  发布时间：2019/6/5 14:01:00
--
dr1 = DataTables("入库信息").Find("[生产令号] = \'" & e.DataRow("生产令号") & "\' And 入库时间 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")

--  作者：13775189031
--  发布时间：2019/6/5 16:09:00
--
ok!谢谢！

--  作者：13775189031
--  发布时间：2019/6/5 16:15:00
--

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

--  作者：有点甜
--  发布时间：2019/6/5 16:31:00
--

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