关于百分比查询

roych

把条件加到Dsum里面。由于对你的算法不清楚，所以不传附件了，这里给个SQL语句示例：
SELECT 表1.b, Format([b]/DSum("[b]","表1","等级='a'"),"Percent") AS 表达式1
FROM 表1
WHERE (表1.等级="a")
GROUP BY 表1.b;

roych

把这一句放在窗体的记录源里：
SELECT 表1.b, Format(/DSum("","表1","等级='a'"),"Percent") AS 表达式1 FROM 表1 WHERE (表1.等级)="a" GROUP BY 表1.b;
如果用代码的话，可以这样改：
Private Sub Form_Load()
mysum = DSum("b", "表1", "等级='a'")
strtext = "SELECT b, b/" & mysum & " AS 表达式1 FROM 表1 WHERE 等级='a' GROUP BY 表1.b"
Debug.Print strtext
Me.Form.RecordSource = strtext
End Sub
接着把里面的文本框改为百分比格式就好了。
一般来说，对于过于复杂的表达式，建议不必一步到位地写出来，很容易因为这个而降低代码的可读性。所以，我们就先把Dsum分出来，然后再嵌入表达式里面。而设置文本框格式则消除了Format函数。这样一来，代码就简单多了。