TrueDBGrid问题：我想在TBDGRID的第一列输入数据，当移开第一列时，就查询输入数据的记录，并显示在同一行的其他格子中，请问代码如何编

Question

Sub TDBGrid1_AfterColEdit(ByVal ColIndex As Integer)事件

Answer 1

查询输入数据的什么记录,并显示在同一行的其他格子中?
将TabAction设为1,回车后光标自动移到下一列

Answer 2

inforum(坛中人,不得不用VB) 
  谢谢。
   如：
   当用户在第一格输入005时，就查询编号为005的产品，并将005产品的品名，规格等，显示在同一行的其他格子里。

Answer 3

inforum(坛中人,不得不用VB) 
  谢谢。
   如：
   当用户在第一格输入005时，就查询编号为005的产品，并将005产品的品名，规格等，显示在同一行的其他格子里。

Answer 4

Public db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "......"Private Sub TDBGrid1_AfterColEdit(ByVal ColIndex As Integer)
Dim Rs As Recordset
Dim Sql$
Sql$="SELECT 品名，规格 FROM table WHERE 编号='" & TDBGrid1.Columns(0).Value
Rs.open Sql$,db
TDBGrid1.Columns(1).Value=Rs!品名 & vbTab & Rs!规格
Rs.Close
Set Rs=Nothing
End Sub