VB FOR 循环语句
VB FOR 循环语句
Dim i,j,c As Integer
Dim a,b As String
c = 0
Adodc1.RecordSource = " select * from inf where 下单时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "# "
Adodc1.Refresh
For j = 0 To Combo1.ListCount - 1
b = Combo1.List(j)
For i = 0 To Adodc1.Recordset.RecordCount - 1
a = Adodc1.Recordset.Fields(15).Value
If b = a Then
c = 1 + c
End If
Next i
Text8.Text = Combo1.List(j) + "共" + Str(c) + "记录"
Next j
这里面有一个COMBOBOX控件里面有几个省份的名称(不重复),一个表中的字段(也就是Fields(15))也有省份名称(有重复),现在想统计 这段时间内 表中字段(Fields(15)中)几个省份的名称,结果显示在Text8.text里!如:河南共8条记录,内蒙共3条记录,河南共9条记录……
Dim i,j,c As Integer
Dim a,b As String
c = 0
Adodc1.RecordSource = " select * from inf where 下单时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "# "
Adodc1.Refresh
For j = 0 To Combo1.ListCount - 1
b = Combo1.List(j)
For i = 0 To Adodc1.Recordset.RecordCount - 1
a = Adodc1.Recordset.Fields(15).Value
If b = a Then
c = 1 + c
End If
Next i
Text8.Text = Combo1.List(j) + "共" + Str(c) + "记录"
Next j
这里面有一个COMBOBOX控件里面有几个省份的名称(不重复),一个表中的字段(也就是Fields(15))也有省份名称(有重复),现在想统计 这段时间内 表中字段(Fields(15)中)几个省份的名称,结果显示在Text8.text里!如:河南共8条记录,内蒙共3条记录,河南共9条记录……
其他人气:639 ℃时间:2020-03-25 16:03:38
优质解答
用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.Dim i As Integer,n As Long,s As StringText8 = ""Adodc1.RecordSource = " select 字段15的名称,count(*) from inf where 下单时间 between #" &...
我来回答
类似推荐
猜你喜欢
- 1[1/(x-5)]+(1/x)=1/6怎么解
- 2小明学习了热学的有关知识后,知道了水的比热 容,他想估计一下自己家每天烧水、做饭需要的 热量、于是小明仔细地记录了他家每天烧饭、煮 饭、炒菜需要的时间,并把它折算成烧水的时间 ,相当于每天将30kg、20℃的水烧开.(1)小明家每天烧水做饭
- 3日光灯灯管的功率和镇流器的关系
- 4物体空间位置随时间的变化叫机械运动,请问为什么要加一个机械?
- 5南半球&北半球的建筑物正午时的影子的朝向分别是怎样的?
- 6用碳酸钠溶液浸泡锅炉水垢:CaSO4 + CO32-=CaCO3↓ + SO42- 不是只有强酸制弱
- 7解方程 90-20%x=80 x-25%x=21 x+60%x=3.2 70%x+46=60 (1-75%)x=36 3x+40%x=23.8
- 8children's day作文
- 9Do you think the most popular... ? 用英文回答几句话谢了
- 10有关句子First,the taxi got stuck in traffic,so I missed my plane.