题目
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条记录……
提问时间:2020-11-02
答案
用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.Dim i As Integer,n As Long,s As StringText8 = ""Adodc1.RecordSource = " select 字段15的名称,count(*) from inf where 下单时间 between #" &...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1my short dress too is
- 2如果盐酸的浓度是醋酸浓度的二倍,则盐酸的H+浓度也是醋酸的二倍;_.
- 3玻璃马赛克的特点和用途是什么?
- 4某车间有工人120人,其中女工人数是男工人数的2/3.后来又招收了一批女工人,这时女工人数占车间总数的3/7
- 5等腰△ABC中,AB=AC,以AB为直径的半圆分别交AC,BC于D,E两点,BF与圆O相切于点B,交AC的延长线于点F.
- 6usually when I come home from school
- 7“国庆节的来历”这个题目的英语怎么说
- 8英语翻译
- 9英语翻译
- 10已知全集u=a∪b={x∈n|0≤x≤10},a∩(cub)={1,3,5,7},试求集合b
热门考点
- 130乘a(a不为0),如果30加上120,要使乘积不变,a应().减去100 除以5 乘上5
- 2有一盘水果,3个3个地数余2个,4个4个数余3,5个5个数余4个,问这个盘子里最少有几个?
- 3描写人琴棋书画样样精通的成语
- 4求打点计时器的各种公式.
- 5数学数据的分析
- 6x比七分之一等于40% 2又二分之一+20%x=25 x-五分之三x=六又五分之二 帮我解,
- 7墙角的花你孤芳自赏时天地便小了这首诗的艺术特色
- 8写出下面有关‘手’的成语.( )—形容喜欢 ( )—形容聪明 ( )—形容惊慌 ( )—形容高兴
- 9一根长2米的长方体木料如果锯成等长的三段表面积将增加6平方分米这根木材的体积是多少立方分米?
- 10请高手来看下狭义相对论速度叠加公式证明的明显低级错误