两个小问题？？？

Question

1、datagrid中如何加入一列自动填充序号？
2、怎样才能把TAB变成“回车”，就是想实现用“回车”切换到下一个输入焦点。
请各位指教一下

Answer 1

2、当用户回车时发送tab按键消息，前提是设置好tabindex
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub
或者直接设置焦点对象
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        text2.setfocus
    End If
End Sub

Answer 2

Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End SubPrivate Sub Form_Load()
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic   Set DataGrid1.DataSource = Rs
   DataGrid1.TabAction = dbgGridNavigationEnd Sub

Answer 3

1、datagrid中如何加入一列自动填充序号？
把这个交给数据库解决！你只需要把数据里的数据通过datagrid显示出来就行了啊！

Answer 4

1、最好在数据选择记录的时候，就用一列用序号2、
加一句
DataGrid1.TabAction = dbgGridNavigation在keyPress事件中加入回车键时发送tabPrivate Sub DataGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Answer 5

datagrid中如何加入一列自动填充序号,把这个交给数据库解可以，不过这样有问题，当数据库中的记录发生变化，比如删除其中的一条记录，其他记录的序号不会随之变化（当然可以通过程序调整，是不是太麻烦了，原序号为1、2、3、4...，我把第一条记录删除了后面的记录的序号都要调整效率太低）。我想找一种简便的办法来自动添加序号？？

Answer 6

2、怎样才能把TAB变成“回车”，就是想实现用“回车”切换到下一个输入焦点。
答：用键盘事件接受