以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38822)
--  作者：lfxxdt
--  发布时间：2013/8/8 8:48:00
--  日期判断

Dim dt As Date = Date.Today.AddDays(30)
Dim dr As DataRow = DataTables("员工档案").Find("合同到期 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有员工合同即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Forms("员工档案").show()
    DataTables("员工档案").loadFilter = "合同到期 <= #" & dt & "#"
    DataTables("员工档案").load
End If

 

以上代码是做到菜单中的，在狐表里运行没问题，但表上传远程服务器后运行不了，

提示：第 1 行: \'#\' 附近有语法错误。
--  作者：Bin
--  发布时间：2013/8/8 9:02:00
--  
如果是SQL数据源 那么要使用 单引号 \'  而不是使用#
--  作者：lfxxdt
--  发布时间：2013/8/8 9:07:00
--  

已解决了，谢谢