Dim ID As Integer
ID = rs.Fields("序号1")
''''''''''''将读出的自动编号“序号1”放到整形ID里
strsql = "select * from 借出表 where 序号2 = '" & ID & "'"
Set rs2 = con.Execute(strsql)
''''''''''''上句提示数据类型不匹配在ACCESS中,序号1和序号2都是自动编号,但是执行第三句的时候,出现问题!
谢谢各位高手相救
ID = rs.Fields("序号1")
''''''''''''将读出的自动编号“序号1”放到整形ID里
strsql = "select * from 借出表 where 序号2 = '" & ID & "'"
Set rs2 = con.Execute(strsql)
''''''''''''上句提示数据类型不匹配在ACCESS中,序号1和序号2都是自动编号,但是执行第三句的时候,出现问题!
谢谢各位高手相救
是整形,就strsql = "select * from 借出表 where 序号2 = " & ID
是整形,就strsql = "select * from 借出表 where 序号2 = " & ID
===========================
自动编号字段一般都是数值型的。。