用 select 编号字段,sum(Price字段) from tablename
解决方案 »
- 想用VB中的MSFlexGrid显示修改SQL数据没成功
- 请问在哪可以找到Pcomm.bas模块(串口读写)急,大侠请进!
- 关于删除的简单问题
- mshflexgrid控件与access数据库做成的程序生成的.exe文件运行时出错????
- 有高手知道VB怎样调用ActiveSync相关的动态库吗?
- 我的计算机装有几个打印机我在程序中根据不同的内容选择不同的打印机进行打印
- 怎么回事,帮帮忙,在线
- 点击文件名后如何打开文件并显示内容,请教各位!
- 我想问有关数据库方面的问题,请编过网络数据库编程的人员过来看一下。
- VB反编辑的软件都有什么???
- 有谁做过图书管理系统的,给我一分源码吧,急需,谢谢!!!!!!!!!!
- 如何让按钮得到焦点?
For j = 0 To rstemp_prices.RecordCount - 1
temp_lab_num = rstemp_prices("lab_num")
msfdoctor.col = 1
firstfind = 0
For k = 0 To msfdoctor.Rows - 1
msfdoctor.row = k
If temp_lab_num = msfdoctor.text Then
firstfind = 1
Else
If firstfind = 1 Then
msfdoctor.row = k - 1
msfdoctor.col = 7
msfdoctor.CellBackColor = &HCDF1FA
msfdoctor.text = "¥" & rstemp_prices("subprice")
Exit For
End If
End If
If k = msfdoctor.Rows - 1 Then
msfdoctor.col = 7
msfdoctor.CellBackColor = &HCDF1FA
msfdoctor.text = "¥" & rstemp_prices("subprice")
End If
Next k
rstemp_prices.MoveNext
Next j