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

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

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

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

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

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

新增加的tab是没有任何控件的，之前的关闭后，这个tabpage就被删除了，里面的控件也没有了。

参考这里的用法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82803

全局代码，写成下面，好好参考229楼的代码

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
If e.TabPage.Name = "首页" Then
    MessageBox.Show("首页不能关闭!")
    e.Cancel = True
Else

    sender.tabpages(e.tabpage.name).visible = False
    e.cancel = True
End If

End Sub

此主题相关图片如下：统计问题.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

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

编写click事件，判断点击哪一行、哪一列，对应的合成sql语句执行，查找对应的表格数据并显示出来即可。

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的清单或编号个数为三的清单）

编写click事件，判断点击哪一行、哪一列，对应的合成sql语句执行，查找对应的表格数据并显示出来即可。

不会做上传对应实例测试。

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

主题：语法解法