VB FOR 循环语句 Dim i,j,c As IntegerDim a,b As Stringc = 0Adodc1.RecordSource = " select * from inf where 下单时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "# "Adodc1.RefreshFor j = 0 To Combo1.ListCount - 1b = Combo1.List(j)For i =
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 16:11:28
![VB FOR 循环语句 Dim i,j,c As IntegerDim a,b As Stringc = 0Adodc1.RecordSource =](/uploads/image/z/3372455-47-5.jpg?t=VB+FOR+%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5+Dim+i%2Cj%2Cc+As+IntegerDim+a%2Cb+As+Stringc+%3D+0Adodc1.RecordSource+%3D+%22+select+%2A+from+inf+where+%E4%B8%8B%E5%8D%95%E6%97%B6%E9%97%B4+between+%23%22+%26+DTP1.Value+%26+%22%23+and+%23%22+%26+DTP2.Value+%26+%22%23+%22Adodc1.RefreshFor+j+%3D+0+To+Combo1.ListCount+-+1b+%3D+Combo1.List%28j%29For+i+%3D)
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条记录……
VB FOR 循环语句 Dim i,j,c As IntegerDim a,b As Stringc = 0Adodc1.RecordSource = " select * from inf where 下单时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "# "Adodc1.RefreshFor j = 0 To Combo1.ListCount - 1b = Combo1.List(j)For i =
用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.
Dim i As Integer,n As Long,s As String
Text8 = ""
Adodc1.RecordSource = " select 字段15的名称,count(*) from inf where 下单时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "# group by 字段15的名称"
Adodc1.Refresh
For i = 0 To Combo1.ListCount - 1
s = Combo1.List(i)
n = 0
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = s Then n = Adodc1.Recordset.Fields(1):Exit Do
Adodc1.Recordset.MoveNext
Loop
Text8 = Text8 & "," & s & "共" & n & "条记录"
Next
将上述语句中的“字段15的名称”修改为你数据库中inf表的第16个字段的字段名称.