VB FOR 循環(huán)語句
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)）也有省份名稱（有重復）,現(xiàn)在想統(tǒng)計 這段時間內(nèi) 表中字段（Fields(15)中）幾個省份的名稱,結果顯示在Text8.text里!如：河南共8條記錄,內(nèi)蒙共3條記錄,河南共9條記錄……