[求助]窗口闪退 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口闪退

共有2303人关注过本帖树形打印复制链接主题：[求助]窗口闪退

有点蓝

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

加好友

发短信

等级：超级版主帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/18 14:09:00 [显示全部帖子]

上例子测试

有点蓝

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

加好友

发短信

等级：超级版主帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/18 15:31:00 [显示全部帖子]

测试数据确实没有符合条件的行啊，[F4415]都是0的

Forms("退款记载结果").Controls("Table1").Table.filter = filter1 & " [F4415]＞0"

有点蓝

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

加好友

发短信

等级：超级版主帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/19 11:46:00 [显示全部帖子]

1、结果窗口表改为sqltable类型，设置数据源

sｅlect语句设置为：sｅlect * from [T246] where 1=2

2、查询按钮最后一段代码改为

......

If filter1 > "" Then

filter1 = filter1 & " and"

End If

If filter > "" Then

filter = "( " & filter & " ) "

End If

filter1 = filter1 & filter

Dim t As Table = Forms("欠收结果").Controls("Table1").Table

t.DataTable.LoadFilter = filter1 & " and [F5296]>0"

t.DataTable.load

Forms("欠收结果").Controls("label2").Text = t.Compute("sum(F5296)")

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用户缴退费兰州.table

[此贴子已经被作者于2016/10/19 11:46:07编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107850 积分：548607 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/19 15:25:00 [显示全部帖子]

生成的条件实际是这样的

sｅlect * from {T246} where [F5319] Like '*2017*' and( [T246Id] = '16802' or [T246Id] = '16806' or [T246Id] = '16803' or [T246Id] = '16801' or [T246Id] = '16810' or [T246Id] = '16808' or [T246Id] = '16811' or [T246Id] = '16812' or [T246Id] = '16813' or [T246Id] = '16814' or [T246Id] = '16804' or [T246Id] = '16800' or [T246Id] = '16815' or [T246Id] = '16816' or [T246Id] = '16817' or [T246Id] = '16809' or [T246Id] = '16818' or [T246Id] = '16819' or [T246Id] = '16805' or [T246Id] = '16807' ) and [F5296]>0

直接到数据库查询有值吗？

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

主题：[求助]窗口闪退