Question

VB6编程datagrid控件添加一条数据再打开之后数据位置变到第一条了？

我用datagrid连接adodc，然后做了添加的按钮，确定和添加的代码就是Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd Sub，本来表里有40条数据，我添加了第41条，确定之后我再次打开这个form的时候，41这条数据跑到第一条上面变成第一条了？有没有大神知道怎么回事啊？

Answer 1

Private Sub datagrid_lClick() if datagrid.RowSel <> -1 Then Text1.Text = datagrid.TextMatrix(datagrid.RowSel, 1) Text2.Text = datagrid.TextMatrix(datagrid.RowSel, 2) Text3.Text = datagrid.TextMatrix(datagrid.RowSel, 3) end if End Sub 首先，要达到你的目的，应该将代码写在datagrid的单击事件里进行处理。在单击事件里，datagrid.RowSel可以获得当前所点击的行，根据行号和列号，可以具体定位到某一单元格。这样就能获取点击的行中的任何一单元格的内容，也能同时获得整个行的内容。这段程序中的IF语句，主要是防止程序出错，也就是当点击datagrid，但是点击的不是数据行，点击的是表身时，就会出错，所以才会用这个IF语句。 我现在在家里手动写的代码，有一点我不能确定的是：当未选中数据行时，datagrid.RowSel到底返回的是-1还是0，这个我记不清楚了，如果datagrid.RowSel返回的是0的话，你就将IF语句改成if datagrid.RowSel <> 0 Then好了。 希望能帮你解决问题。

追问

我不太懂，你这三个text是用来做什么的？而且运行显示错误类型424，代码标黄了