什么意思?x有重复吗假用x唯一,数据库建一表,内有两个字段, 名为X 和Y然后用rs 打开 Dim rs as new Recordset dim cn as new connection dim x as integer cn.connectionstring="连接字串" cn.open rs.open "Select * From table1 ",cnrs.filter="X=" & xprint rs("Y") ---------------- 这是大概思路,你自己整理吧
dim Arr() as integer redim arr(100) as integer arr(1)=5 arr(10)=14 arr(33)=22 ... y=arr(x)
Dim rs as new Recordset
dim cn as new connection
dim x as integer
cn.connectionstring="连接字串"
cn.open rs.open "Select * From table1 ",cnrs.filter="X=" & xprint rs("Y")
----------------
这是大概思路,你自己整理吧
redim arr(100) as integer
arr(1)=5
arr(10)=14
arr(33)=22
...
y=arr(x)