以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态加载表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116806)
--  作者：恒隆君
--  发布时间：2018/3/31 15:50:00
--  动态加载表
老师， 如果使用动态加载表，打开项目时，不加载表。 以下的代码会报错，找不到库存表。

以下代码放在哪里比较合适？



4、最后设置项目事件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


http://www.foxtable.com/webhelp/scr/2471.htm
--  作者：有点蓝
--  发布时间：2018/3/31 16:19:00
--  
1、必须就挨着这个表
方法2、使用sqlcommand取数据