求指教

 If m_ListInte易做图ce.GetSelectedBillInfo.UBound > 1 Then
            For i = m_ListInte易做图ce.GetSelectedBillInfo.LBound To m_ListInte易做图ce.GetSelectedBillInfo.UBound
                      Set rs = m_ListInte易做图ce.K3Lib.GetData("select FBase from t_BOS200000122 where FID=" & m_ListInte易做图ce.GetSelectedBillInfo.Item(i).Value("FID"))
            If Not rs.EOF And Not rs.BOF Then
                If sql = "" Then
                    sql = rs.Fields("FBase")
                End If
                If sql <> "" Then
                    If sql <> rs.Fields("FBase") Then
                         MsgBox ""
                    End If
                End If
                rs.Close
            End If
                
                Next i
            
        End If



麻烦帮看下这段代码有什么错误，运行的时候总报“真”错误，而且运行时If Not rs.EOF And Not rs.BOF Then下的代码不往里面走，直接走到end if 了 你用的这个是金蝶? 没看出有啥语法错误。
你只能DEBUG看一下。 2楼能帮忙写下嘛，才用VB不久，什么都不会，愁死了都 Set rs = m_ListInte易做图ce.K3Lib.GetData("select FBase from t_BOS200000122 where FID='" & m_ListInte易做图ce.GetSelectedBillInfo.Item(i).Value("FID")) & "'"
你这个应该是没有查询到记录所以不走里面啊 先看看recordcount有多少条  如果没有的话估计是你的语法不对

补充：VB ,  基础类