以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间列和文字不能= 这么解决呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174060)
--  作者：cnsjroom
--  发布时间：2021/12/29 17:08:00
--  时间列和文字不能= 这么解决呢？
红色部分代码获取的是时间不重复值，列名是日期时间列，这么修正呢？

DataTables("凭证号").DeleteFor("")
Dim t1 As Table =Tables("凭证号")
t1.StopRedraw
Dim Products As List(Of String)
Products = DataTables("凭证明细").GetValues("时间")
Dim Products1 As List(Of String)
For Each Product As String In Products
    Output.Show(Product)
    Products1 = DataTables("凭证明细").GetValues("凭证号","时间=\'"& Product &"\'")
    For Each Product1 As String In Products1
        Output.Show(Product1)
        t1.AddNew
        t1.Current("凭证号")=Product1
        t1.Current("凭证单位")="瓮安县粮食局粮食储备库"
        t1.Current("时间")=Product
        t1.Current("uuid")=Guid.NewGuid.TOstring()
        t1.Current("会计主管")="李沅玫1"
        t1.Current("记账")="李沅玫"
        t1.Current("复核")="李沅玫"
        Dim dt As Date=Product
        t1.Current("年份")=dt.Year
        t1.Current("月份")=dt.Month
    Next
Next
t1.save
t1.ResumeRedraw

For Each Product As String() In DataTables("凭证明细").GetValues("时间|凭证号")
    Dim a2 As DataRow=DataTables("凭证号").Find("时间=\'" & Product(0) & "\'and 凭证号=\'" & Product(1) & "\'")
    If a2 IsNot Nothing Then
        Dim idx As Integer = 1
        For Each dr As DataRow In DataTables("凭证明细").Select("时间=\'" & Product(0) & "\' and 凭证号=\'" & Product(1) & "\'")
            dr("uuid")=a2("uuid")
            dr("凭证编号")=idx
            idx += 1
            Dim dt1 As Date=dr("时间")
            dr("年份")=dt1.Year
            dr("月份")=dt1.Month
            dr.save
            a2("合计_借方金额")=DataTables("凭证明细").Compute("sum(借方金额)","时间=\'" & Product(0)& "\' and 凭证号=\'" & Product(1) & "\'")
            a2("合计_贷方金额")=DataTables("凭证明细").Compute("sum(贷方金额)","时间=\'" & Product(0) & "\' and 凭证号=\'" & Product(1) & "\'")
            a2.Save
        Next
    End If
Next
--  作者：有点蓝
--  发布时间：2021/12/29 17:15:00
--  
Products1 = DataTables("凭证明细").GetValues("凭证号","时间=#"& Product & "#")
--  作者：cnsjroom
--  发布时间：2021/12/29 17:32:00
--  回复：（有点蓝）Products1 = DataTables("凭证明细")...
提示 ：表达式包含无效的日期常量“##”。

采用的是SQL数据

又要麻烦老师了
--  作者：有点蓝
--  发布时间：2021/12/29 17:34:00
--  
GetValues不是sqlGetValues，和什么数据库没有关系。

Output.Show(Product)显示什么内容？
--  作者：cnsjroom
--  发布时间：2021/12/29 17:46:00
--  回复：（有点蓝）GetValues不是sqlGetValues，和什么数...
会输出2021—12—23 00：00：00这样的数据

如果将#换成’就 提示无法在system datetime和system string上执行=的操作
[此贴子已经被作者于2021/12/29 17:47:19编辑过]
--  作者：有点蓝
--  发布时间：2021/12/30 8:37:00
--  
我测试没有问题，请上传实例说明