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

电脑打开不开foxdb格式的，老师可以提供table格式的

此主题相关图片如下：页面.png

老师请问下，为什么点击节点后，打开页面集合中的页面，关闭页面后，在次打开后，为什么不能在次显示表了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sap系统.zip

请帮看看是那个地方的代码写错了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sap系统.zip

此主题相关图片如下：页面集合.png

请老师帮看看本例中有什么问题

此主题相关图片如下：统计问题.png

请问下老师，我用下述代码生成了统计表：

SELECT CASE

WHEN mandt = '800' THEN '数量'

END AS 项目

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (name1 IN (

SELECT name1

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

GROUP BY name1

HAVING COUNT(lifnr) = 0

)

AND loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_无编码

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (name1 IN (

SELECT name1

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

GROUP BY name1

HAVING COUNT(lifnr) = 1

)

AND loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_一个编码

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (name1 IN (

SELECT name1

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

GROUP BY name1

HAVING COUNT(lifnr) = 2

)

AND loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_二个编码

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (name1 IN (

SELECT name1

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

GROUP BY name1

HAVING COUNT(lifnr) = 3

)

AND loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_三个编码

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (name1 IN (

SELECT name1

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

GROUP BY name1

HAVING COUNT(lifnr) = 4

)

AND loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_四个编码

, (

SELECT COUNT(lifnr)

F ROM sapprd.lfa1

WHERE (loevm <> 'X'

AND sperr <> 'X'

AND sperm <> 'X')

) AS 供应商_合计

F ROM sapprd.lfa1

GROUP BY mandt

现在我想实现双击统计表中的某行时，在供应商清单中列出相关的明细

SELECT DISTINCT a1.mandt AS 客户端, a1.lifnr AS 编码, a1.name1 AS 名称, a1.sortl AS 简称, a1.ktokk AS 类型

, decode(ktokk, 'Z001', '供应商_外部', 'Z002', '供应商_内部', 'Z003', '供应商_临时', 'Z004', '供应商_财务', '供应商_其他') AS 类型描述

, a1.erdat AS 创建日期, a1.ernam AS 用户, a3.name_text AS 用户名, a1.ort01 AS 归属地, a1.regio AS 纳税地

, a6.bezei AS 纳税地名, a1.stras AS 纳税号, a1.telf1 AS 电话1, a1.telf2 AS 电话2, a1.stceg AS 地址

, a1.loevm AS 全部删除, a1.sperr AS 财务删除, a1.sperm AS 采购删除, a1.sperq AS 删除代码, a5.kurztext AS 删除原因

F ROM sapprd.lfa1 a1

LEFT JOIN sapprd.usr21 a2

ON a1.ernam = a2.bname

AND a2.mandt = '800'

LEFT JOIN sapprd.adrp a3 ON a2.persnumber = a3.persnumber

LEFT JOIN sapprd.lfb1 a4

ON (a1.lifnr = a4.lifnr

AND a4.mandt = '800'

AND a4.erdat = a1.erdat)

LEFT JOIN sapprd.tq04s a5

ON a1.sperq = a5.sperrfkt

AND sprache = '1'

LEFT JOIN sapprd.t005u a6

ON (a1.regio = a6.bland

AND a6.mandt = '800'

AND a6.land1 = 'CN'

AND a6.spras = '1')

上述代码，我是根据多表张生成的一张连接表，现我想实现在上图统计表中双击单元格后，通过加载条件（按名称加载编号个数为1的清单或编号个数为2的清单或编号个数为三的清单）

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

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText ="SELECT DISTINCT a1.mandt AS 客户端, a1.lifnr AS 编码, a1.name1 AS 名称, a1.sortl AS 简称, a1.ktokk AS 类型 , decode(ktokk, 'Z001', '供应商_外部', 'Z002', '供应商_内部', 'Z003', '供应商_临时', 'Z004', '供应商_财务', '供应商_其他') AS 类型描述 , a1.erdat AS 创建日期, a1.ernam AS 用户, a3.name_text AS 用户名, a1.ort01 AS 归属地, a1.regio AS 纳税地 , a6.bezei AS 纳税地名, a1.stras AS 纳税号, a1.telf1 AS 电话1, a1.telf2 AS 电话2, a1.stceg AS 地址 , a1.loevm AS 全部删除, a1.sperr AS 财务删除, a1.sperm AS 采购删除, a1.sperq AS 删除代码, a5.kurztext AS 删除原因 F ROM sapprd.lfa1 a1 LEFT JOIN sapprd.usr21 a2 ON a1.ernam = a2.bname AND a2.mandt = '800' LEFT JOIN sapprd.adrp a3 ON a2.persnumber = a3.persnumber LEFT JOIN sapprd.lfb1 a4 ON (a1.lifnr = a4.lifnr AND a4.mandt = '800' AND a4.erdat = a1.erdat) LEFT JOIN sapprd.tq04s a5 ON a1.sperq = a5.sperrfkt AND sprache = '1' LEFT JOIN sapprd.t005u a6 ON (a1.regio = a6.bland AND a6.mandt = '800' AND a6.land1 = 'CN' AND a6.spras = '1') WHERE (a1.loevm <> 'X' AND a1.sperr <> 'X' AND a1.sperm <> 'X')"

dt=cmd.ExecuteReader()

Dim sql ="select * fr om dt where 名称 in (select 名称 fr om dt group by 名称 having count(编码)=1)"

Tables("窗口2_table1").DataSource =dt

Tables("窗口2_table1").Filter=sql

Tables("窗口2_table1").AllowClickSort=True

可以通过上面这个方式实现双击某单元格后加载指定条件的数据

我用的数据库是db2，无法直接加载表，需通过上sqlcommand先生成一个临时表，在根据指定条件将临时表中符合条件的数据加载到窗口的表中

我执行上述代码，提示：

语法错误:“dt”运算符后缺少操作数。

主题：语法解法