VB类型不匹配问题
Image1((s Mod 6) - 1).Picture = LoadPicture(rs.Fields(1).Value)s是Long型变量rs.Fields(1).Value是文件地址〕而VB出现错误13'类型不匹配。请问什么原因完整代码如下:Private Sub Command3_Click()Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim StrTemp As StringFor q = 0 To 5Image1(q).Picture = LoadPicture(App.Path & "\pic\none.jpg")Next qIf Dir(App.Path + "\Mydata.mdb") <> "" Thencnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\mydata.mdb"End Ifcnn.OpenSet rs.ActiveConnection = cnnStrTemp = "SELECT * FROM photoshop"rs.CursorType = adOpenStaticrs.Open StrTempstrend = rs.RecordCountab = srs.Move (ab)ac = s Mod 6Do While (s <= rs.RecordCount) And (s <= ab + 6)Image1((s Mod 6) - 1).Picture = LoadPicture(rs.Fields(1).Value)Label((s Mod 6) - 1).Caption = rs.Fields(3).Valuers.MoveNexts = s + 1LoopEnd Sub
参考答案:插入断点Debug一下看看 rs.Fields(1).Value 是什么