Visual Basic分组依据

Question

需要帮助。。。

表名-现金簿字段名称-pname&amount

Examble

pname金额安东尼1500Jose 3000Antony 3500

需要像下面的一样在msflexgrid中显示

安东尼-5000Jose-3000

下面的代码不起作用。。。。有人能帮我吗

Rec.open "select  from pname,sum(amount) as amt from cashbook group by pname order by pname,var,adopendynamic,adlockoptimist"
While rec.eof=false
Pymnt.rows=pymnt.rows+1
Pymnt.textmatrix(pymnt.rows -1,0)=rec!pname
Pymnt.textmatrix(pymnt.rows -1,1)=amt
Rec.movenext
Wend
Rec.close

Answer 1

我对您的代码进行了一些修复，并提出了以下内容：

Public Sub Test()
rec.Open "select pname, sum(amount) as amt from cashbook group by pname order by pname", var, adOpenDynamic, adLockOptimistic
While Not rec.EOF
pymnt.Rows = pymnt.Rows + 1
pymnt.textmatrix(pymnt.Rows - 1, 0) = rec.Fields("pname").Value
pymnt.textmatrix(pymnt.Rows - 1, 1) = rec.Fields("amt").Value
rec.MoveNext
Wend
rec.Close
End Sub

我做的修复包括：

1. 构造正确的SQL语句
2. 为Open方法提供正确的参数
3. 假设var是一个开放的Connection对象
4. 更正adLockOptimistic的拼写
5. 更改循环中访问数据的方式