Question

VB提示未找到方法或数据成员

代码如下：
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1 Step 1
If Adodc1.Recordset.Fields(1).Value = Combo1.Text Then
Text1.Text = Adodc1.Recordset.Fields(0).Value
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(3).Value
Text5.Text = Adodc1.Recordset.Fields(4).Value
Text6.Text = Adodc1.Recordset.Fields(5).Value
Text7.Text = Adodc1.Recordset.Fields(6).Value
Else
Adodc1.Recordset.MoveNext
End If
Next i
End Sub

Answer 1

未找到方法或数据成员就是意思i市你的名称或引用写错了，不在代码上，看看看你的按钮的名称和代码的一致不，你利用adodc连接就要有adodc的引用，在工程引用，Mor。。。A。。。 D... O．．． D．．． C．．点对号引用。这就是环境

Answer 2

mnuaddcomment应该是frmmdimain的菜单项，找一下是否不存在此项(添加评论什么的，没有的话可以自己添一个，或者把这句删掉，不过后面可能还有与此相关的语句)

Answer 3

去掉代码中所有的.value