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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]菜单中的 % 命令

共有25235人关注过本帖树形打印复制链接主题：[求助]菜单中的 % 命令

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/2/1 10:48:00 [显示全部帖子]

错误提示，没有找到列s2，问题在于：

DataTables("实体材料分析").DataCols("金额").Expression = "S2*b/100"

那里来的s2啊

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/2/1 11:28:00 [显示全部帖子]

Dim a As Table = Tables("实体预算书.实体材料分析")
Dim r As Integer
Dim S1 As Double = a.Compute("Sum(金额)", "RCJ = 'R'")
Dim S2 As Double = a.Compute("Sum(金额)", "RCJ = 'C'")
Dim S3 As Double = a.Compute("Sum(金额)", "RCJ = 'J'")
Dim b As Double = a.Rows(r)("定额用量")
r = a.Find("%", 0, "单位", True, True, False)
If r = - 1 Then
MessageBox.Show("此项目不包含 % 材料", "提示")
ElseIf a.Rows(r)("材料编号") = "AW0021" Then
DataTables("实体材料分析").DataCols("金额").Expression = S2 & "*b/100"
End If