晕啊~ 建议把所有的类似:
Dim ldmt As Double
Dim cmdmt As New SQLCommand
cmdmt.C
cmdmt.CommandText = "Select Sum(月扣款) From {人员管理} Where [姓名] = '" & Values(ii-1) & "'"
ldmt = cmdmt.ExecuteScalar()
这样的东东都放到,for 。。。 next 的前面去,不要放在其中! 且相类似的(条件相同的)合并一起到一个.CommandText = "Select.....From 里面去,与 i 或 ii 条件有关的都不要,保留一个时间段的条件, 计算时再添加条件来计算。。。。
[此贴子已经被作者于2010-9-24 13:42:05编辑过]