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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]

共有104人关注过本帖树形打印复制链接主题：[原创]

Cloud

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

加好友

发短信

等级：幼狐帖子：159 积分：1354 威望：0 精华：0 注册：2016/6/21 12:27:00

[原创]

Post By：2025/4/9 18:09:00 [只看该作者]

求大神指点：

表格有20列，写一个公式将这20列中不为空的单元格数量计算后自动填入单元格中：比如：e.DataRow("积值") = e.DataRow("开号1") + e.DataRow("开号2") + e.DataRow("开号3")

这个积值=开号1，开号2，开号3中不为空的记录数

Cloud

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

加好友

发短信

等级：幼狐帖子：159 积分：1354 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2025/4/9 22:41:00 [只看该作者]

Dim r1 = Tables("澳门六合表").Current("预号1")

If Tables("澳门六合表").Current("预号1") > 0 Then

r1 = 1

Dim r2 = Tables("澳门六合表").Current("预号2")

If Tables("澳门六合表").Current("预号2") > 0 Then

r2 = 1

Dim r3 = Tables("澳门六合表").Current("预号3")

If Tables("澳门六合表").Current("预号3") > 0 Then

r3 = 1

Dim r4 = Tables("澳门六合表").Current("预号4")

If Tables("澳门六合表").Current("预号4") > 0 Then

r4 = 1

Tables("澳门六合表").Current("计数") = r1 + r2 + r3 + r4

End If

这样写这个代码可以实现，但是有点复杂了，怎么写会简单一些，求大神指点一下，谢谢

有点蓝

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

加好友

发短信

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

Post By：2025/4/10 8:50:00 [只看该作者]

Dim sum As Integer

Dim r As Row = Tables("澳门六合表").Current

If r IsNot Nothing Then

For Each c As Col In Tables("澳门六合表").cols

If c.name.StartsWith("预号") AndAlso r.isnull(c.name) = False Then

sum += 1

End If

r("计数") = sum

End If

Cloud

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

加好友

发短信

等级：幼狐帖子：159 积分：1354 威望：0 精华：0 注册：2016/6/21 12:27:00

Post By：2025/4/10 15:25:00 [只看该作者]

谢谢

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

主题：[原创]