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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求，帮忙简化代码！

共有2579人关注过本帖树形打印复制链接主题：求，帮忙简化代码！

有点甜

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

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

Post By：2019/2/14 22:30:00 [显示全部帖子]

在打开模式窗口的时候，记录是哪个窗口或者哪个表格打开的，如

vars("表") = "表A"

vars("窗口") = "窗口1"

forms("选择商品").Show

然后，doubleclick事件那里，直接使用 vars("表") vars("窗口")

有点甜

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

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

Post By：2019/2/15 9:24:00 [显示全部帖子]

方法一：直接筛选 tables("表A").filter = "第一列 is not null"

方法二：循环每一行，然后判断某列的值；如果要获取行数据量，可以用compute统计个数。

有点甜

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

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

Post By：2019/2/15 11:40:00 [显示全部帖子]

Dim n = Tables("进货明细_table1").compute("count(商品id)", "商品id is not null")

msgbox(n)

主题：求，帮忙简化代码！