UC知道VB6.0+SQL分类求和及赋值问题
来源：百度知道 编辑：UC知道 时间：2024/05/29 18:55:48
内容:
查询之后内容显示在datagrid控件里再进行分类求和，如何把这个计算出来的值，赋到一个变量上，在把这个变量当成具体的数值运用到其他等式后面。
datagrid控件显示的内容如下：
区域 金额
北部大区 100
东部大区 200
西部大区 300
北部大区 500
现在需要得到的是，北部大区的金额总和
我写的代码大致如下：
Dim B As String
B = "select 北部大区 as 区域,SUM(金额) from DataGrid1.DataSource group by 北部大区"
本人是新手，两个地方不是很明白，一个就是这种赋值方式正确与否，一个就是分类求和的代码在
from后面直接写DataGrid1.DataSource是否正确。
请教高手解答一下，谢谢！
如果哪个高手愿意为我解答，但又觉得本人描述不够详细的，请留下QQ或者邮箱，我会及时跟您联系，完成之后同样给分!
查询之后内容显示在datagrid控件里再进行分类求和，如何把这个计算出来的值，赋到一个变量上，在把这个变量当成具体的数值运用到其他等式后面。
datagrid控件显示的内容如下：
区域 金额
北部大区 100
东部大区 200
西部大区 300
北部大区 500
现在需要得到的是，北部大区的金额总和
我写的代码大致如下：
Dim B As String
B = "select 北部大区 as 区域,SUM(金额) from DataGrid1.DataSource group by 北部大区"
本人是新手，两个地方不是很明白，一个就是这种赋值方式正确与否，一个就是分类求和的代码在
from后面直接写DataGrid1.DataSource是否正确。
请教高手解答一下，谢谢！
如果哪个高手愿意为我解答，但又觉得本人描述不够详细的，请留下QQ或者邮箱，我会及时跟您联系，完成之后同样给分!
Select语句一般跟数据库文件，这种用法我也没试过。你可以从结果上试一试。
一般来说，已经得到了查询，并且显示在了DataGrid1控件中时 只对该控件的属性操作即可。
Dim i As Integer
Dim b As Integer
b=0
For i = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = i
If DataGrid1.Columns.Item(0).Text = "北部大区" Then
b=b+Val(DataGrid1.Columns.Item(1).Text)
End If
Next i
End Sub
上面是个简单的例子，如果行数较多（出现垂直滚动条时，会出错，要用到控件的Scroll方法。）