以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  dr问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25177)
--  作者：douglas738888
--  发布时间：2012/11/2 15:02:00
--  dr问题
“dr 在封闭块中隐藏变量”是什么意思，请教
--  作者：lin_hailun
--  发布时间：2012/11/2 15:04:00
--  
 这句话是什么意思？你在哪里看到的？
--  作者：douglas738888
--  发布时间：2012/11/2 15:08:00
--  

帮助文件上有到期提醒一节，我试着把相关代码放到AfterOpenProject中出现的

 

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("职称执业资格").Find("到期日期 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("有证件即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("职称执业资格").Filter = "到期日期 <= #" & dt & "#"
MainTable = Tables("职称执业资格")
End If
--  作者：狐狸爸爸
--  发布时间：2012/11/2 15:15:00
--  

贴出完整的代码，才能看出来。

 

不过在这之前，建议你先看看：

http://www.foxtable.com/help/topics/1518.htm

 
--  作者：lin_hailun
--  发布时间：2012/11/2 15:16:00
--  
 哦哦，这个是因为你的变量定义了两次以上。