Help！！！VB提示“未找到方法或数据成员”

来源：百度知道 编辑：UC知道 时间：2024/05/07 01:01:52
我想实现的功能是:点击DataGrid中的任一行,会在相应的Text里显示出对应的信息,下面是我的代码部分,运行后老是出错，请各位高手指点下迷津!
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) [在这里VB提示“未找到方法或数据成员”]
Adodc1.RecordSource = "select * from freejour"
Set DataGrid1.DataSource = Adodc1
With Adodc1.Recordsets
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
Text8.Text = Adodc1.Recordset.Fields(7).Value
Text9.Text = Adodc1.Recordset.Fields(8).Value
Text10.Text = Adodc1.Recordset.Fields(9).Value
Text11.Text = Adodc1.Recordset.Fields(10).Value
Text12.Text = Adodc1.Recordset.Fields(11).Value
Text13.Text = Adodc1.Recordset.Fields(12).Value
Text14.Te

应该是Click事件，这时按下然后释放一个鼠标按钮后发生的事件，而RowColChange事件是发生改变时的事件。
下面是事件：
Private Sub DataGrid1_Click (index As Integer)
..............
End Sub

请将Recordsets改成Recordset你多些了个s～

恩 你多写了个S 你把S删了 看看行不行