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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助这段代码的优化写法！！

共有8005人关注过本帖树形打印复制链接主题：[求助]求助这段代码的优化写法！！

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2012/5/18 13:13:00 [显示全部帖子]

Dim s1,s2,s3 As String

s1 = "详|调|合|离|员|离职时间|备注|系统密码|系统开启"

s1+ = "|系统在线与否|空白单元格|信息完整率"

s2 = "Count([_identify])"
For Each cl As DataCol In dt.datacols
If s1.Contains(cl.name) = False Then

s3 = cl.Name & " Is not NULL"

cnt+ = dt.Compute(s2, s3)
End If
Next

[此贴子已经被作者于2012-5-18 13:18:02编辑过]

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2012/5/18 13:27:00 [显示全部帖子]

疊加

FoxMan

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

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2012/5/18 13:36:00 [显示全部帖子]

Dim s1,s2,s3 As String

s1 = "|详|调|合|离|员|离职时间|备注|系统密码|系统开启"

s1+ = "|系统在线与否|空白单元格|信息完整率|"

s2 = "Count([_identify])"
For Each cl As DataCol In dt.datacols
If s1.Contains("|" & cl.name & "|") = False Then

s3 = cl.Name & " Is not NULL"

cnt+ = dt.Compute(s2, s3)
End If
Next

主题：[求助]求助 这段代码的优化写法！！