帮忙看看为什么说我未找到方法或数据成员

[lemon2000]

Dim conn As Connection
Dim rs As Recordset
Private Sub Command1_Click()
Dim line As String
Set rs = New Recordset
rs.Open "select * from users", conn
jump = rs!packnum
While Not rs.EOF
line = rs!upline
While Not line = 0
Set rs1 = New Recordset
rs1.Open "select * from users where packnum=" & line, conn
'Text1.Text = line
'Text2.Text = rs!packnum
line = rs1!upline
jump = rs1!packnum & "," & jump
Text1.Text = jump
Wend
rs.Edit 提示我这个部分有问题
rs!treeid = jump
rs.Update
rs.MoveNext
Wend
End Sub
Private Sub Form_Load()
str_conn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=flying;Data Source=W-VH4DM80BOXW63"
Set conn = New Connection
conn.ConnectionString = str_conn
conn.Open
End Sub

[zhenglc]

rs.open ssql, conn, adOpenStatic, adLockOptimistic

[二师兄的老公]

你用的ADO吗，ADO的Recordset有Edit这个方法吗？去掉那行代码应该就可以了。

[hxy2003]

对啊.应该没有edit吧

[panxuejian]

你试一下SQL的修改语句
UPDATE users SET treeid=jump

[lemon2000]

谢谢二位问题解决了