以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从字符串转换日期和/或时间时,转换失败  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77823)

--  作者:zoyong
--  发布时间:2015/11/26 8:41:00
--  从字符串转换日期和/或时间时,转换失败
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2015.11.11.1
错误所在事件:加载[投标立项]失败!
详细错误信息:
从字符串转换日期和/或时间时,转换失败。




afterload:代码

If DataTables.Contains("投标立项") = False Then \'如果表C没有加载
    DataTables.Load("投标立项") \'加载表C
End If

Tables("投标立项").ListMode = True

e.Form.Controls("撤销").Enabled=False

Dim clr As Color = Color.FromARGB(255,234,241,250) \'定义一个颜色
e.Form.Controls("TreeView1").BackColor=clr   \'修改控件背景颜色


Dim dt As Date = Date.Today.AddDays(-7)   \'显示前20天投标登记记录
DataTables("投标立项").LoadFilter = "登记日期 > \'#" & dt & "#\'"
DataTables("投标立项").Load()


Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("投标立项", "资质|年份")
Dim nd As WinForm.TreeNode
nd = tv.Nodes.Insert("显示全部",0)

--  作者:zoyong
--  发布时间:2015/11/26 8:54:00
--  
日期格式:2015-1-1
--  作者:Hyphen
--  发布时间:2015/11/26 9:11:00
--  
DataTables("投标立项").LoadFilter = "登记日期 > #" & dt & "#"

--  作者:zoyong
--  发布时间:2015/11/26 9:13:00
--  
改后

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2015.11.11.1
错误所在事件:加载[投标立项]失败!
详细错误信息:
\'#\' 附近有语法错误。

--  作者:大红袍
--  发布时间:2015/11/26 9:15:00
--  
DataTables("投标立项").LoadFilter = "登记日期 > \'" & dt & "\'"