vb 中 怎么从ADODB.RecordSet 中遍历出 从表中查询到的 信息

Question

[size=24px]拿到 ADODB.RecordSet  后 我想做这样一个逻辑
String a ;
For(int i =0, i<10, i++){
      if(item(i)!=strState){
             if(strCountry="CH"){
                  a = "kk";
              }else{
                   a="";
           }
       }else{
           a="";
       }
}用vb方式实现

Answer 1

Option ExplicitDim a As String
Dim i%
For i = 0 To 10
    If Item(i) <> strState Then
        If strCountry = "CH" Then
            a = "kk"
        Else
            a = ""
        End If
    Else
        a = ""
    End If
Next