以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:窗口加载问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120288)

--  作者:xybcxh
--  发布时间:2018/6/12 9:16:00
--  求助:窗口加载问题
入库表窗口加载,加载。点下一节点,.NET Framework 版本:2.0.50727.5420
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,入库表窗口,TreeView1,NodeMouseDoubleClick
详细错误信息:
标准表达式中数据类型不匹配。
具体应该是借出日期的时间有:年月日时分(比如:2018-6-12 09:10)
是不是这个不匹配?

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[借用人] = \'" & dr("借用人") & "\'"
        Case 1
            Filter ="[借用人] = \'" & dr("借用人") & "\' And [借出日期] = \'" & dr("借出日期") & "\'"
    End Select
End If
With DataTables("设备入库记录")
    .LoadFilter = Filter \'设置加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 300 \'每页300行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
这段代码要怎样改?

--  作者:有点甜
--  发布时间:2018/6/12 9:43:00
--  

 

Filter ="[借用人] = \'" & dr("借用人") & "\' And [借出日期] = #" & dr("借出日期") & "#"


--  作者:xybcxh
--  发布时间:2018/6/12 9:51:00
--  
好了,谢谢