代码加载查询表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码加载查询表

共有6285人关注过本帖树形打印复制链接主题：代码加载查询表

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/3 16:25:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sinoex.table

532net

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：35 积分：325 威望：0 精华：0 注册：2012/5/5 22:04:00

Post By：2013/8/3 17:00:00 [只看该作者]

以下是引用Bin在2013-8-3 16:25:00的发言：
.

下载信息 [文件大小：436.0 KB 下载次数：2]
点击浏览该文件:sinoex.table

这样修改后，如果我在运单表或者fa piao表中，增加数据，那查询表中新增加的数据就无法显示出来，只有关闭FOXTABLE重新启动，重新加载查询表后，才显示新增加的数据，

Bin

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/3 17:18:00 [只看该作者]

你可以整个按钮 datatables("查询表").load 即可更新表

狐狸爸爸

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/3 17:21:00 [只看该作者]

或者在MainTableChanged事件设置代码：

if maintable.name = "查询表" Then

dataTables("查询表").Load

End If

这样就自动更新了

532net

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：35 积分：325 威望：0 精华：0 注册：2012/5/5 22:04:00

Post By：2013/8/3 17:26:00 [只看该作者]

以下是引用Bin在2013-8-3 17:18:00的发言：
你可以整个按钮 datatables("查询表").load 即可更新表

我的意思可能没有表达清楚

现在查询表是每次FOXTABLE启动后，通过查询表设计器 Select Top 100 {TB_CWB}.CWB_NO,CONSIGNOR_NAME,CONSIGNOR_ADDR,CONSIGNOR_TEL,CONSIGNEE_NAME,CONSIGNEE_ADDR,CONSIGNEE_CITY,CONSIGNEE_COUNTRY,{TB_CWB}.CREATED_ON,{TB_INVDETAIL}.VALUE,GOODS_NAME From {TB_CWB} Inner JOIN {TB_INVDETAIL} ON {TB_INVDETAIL}.[CWB_NO] = {TB_CWB}.[CWB_NO] Order By created_on desc 加载远程数据源的前100条数据，然后再窗口中在这100条数据，再查询否和条件的数据.

我现在想要的结果是：

FOXTABLE启动后，不用加载查询表，只有我在窗口中点击 “获取数据”按钮的时候，它才开始加载我指定日期的查询表数据.

Bin

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/3 17:34:00 [只看该作者]

Dim riqi As WinForm.DateTimePicker = e.Form.Controls("日期")

Tables("运单_Table1").Fill("Select 描述,日期,{运单表}.运单号,发货人,{fa piao}.运单号 From {运单表} Inner JOIN {fa piao} ON {fa piao}.[运单号] = {运单表}.[运单号] where {运单表}.[日期] = #" & riqi.Value & "#",True)

即可

532net

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：35 积分：325 威望：0 精华：0 注册：2012/5/5 22:04:00

Post By：2013/8/3 18:06:00 [只看该作者]

以下是引用Bin在2013-8-3 17:34:00的发言：

Dim riqi As WinForm.DateTimePicker = e.Form.Controls("日期")

即可

一开始就是这样做的啊，但是点击 “获取数据”按钮后，无法获取符合条件的数据

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sinoex.rar

[此贴子已经被作者于2013-8-3 18:07:33编辑过]

有点甜

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/3 19:19:00 [只看该作者]

注意帮助文档提及到的。

对于SQLTable和SQLQuery类型的Table，以及副本型的Table，可以通过Fill方法动态加载数据。

所以，要么你把你的窗口表设置成副本，或者查询表，才能使用 Tables().Fill()

不然就换成DataTables().Fill()

有点甜

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/3 19:23:00 [只看该作者]

具体修改，修改窗口表的属性。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sinoex.table

532net

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：35 积分：325 威望：0 精华：0 注册：2012/5/5 22:04:00

Post By：2013/8/3 22:35:00 [只看该作者]

以下是引用有点甜在2013-8-3 19:19:00的发言：
注意帮助文档提及到的。

对于SQLTable和SQLQuery类型的Table，以及副本型的Table，可以通过Fill方法动态加载数据。

所以，要么你把你的窗口表设置成副本，或者查询表，才能使用 Tables().Fill()

不然就换成DataTables().Fill()

感谢点甜的提醒，按照您的方法，内部数据源已经测试成功

另：

如果是外部SQL 数据源，

Tables("运单_Table1").Fill("Select 描述,日期,{运单表}.运单号,发货人,{fa piao}.运单号 From {运单表} Inner JOIN {fa piao} ON {fa piao}.[运单号] = {运单表}.[运单号] where {运单表}.[日期] = '" & riqi.Value &"' ","外部数据源名",True)

这段代码执行后，提示'='附近有语法错误，找不到运单_Table1的DATETABLE ，能帮我看下代码哪个地方有错误码？

[此贴子已经被作者于2013-8-3 22:35:22编辑过]

下一主题 >> << 上一主题

总数 43 上一页 1 2 3 4 5 下一页

主题：代码加载查询表