我做了一个窗体,如下图,我想点击列表中的某一行时,某一行的信息则自动返回到窗体的控件中去,但是不知道为什么,我无论点击列表中的哪一行,它只会返回第一行的信息...如下图所示....下面附上我的代码,请各位看看我的代码是不是出什么问题了...帮我改改...

Private Sub Form_Load()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现使窗体置前的功能
Dim strSql As String
Dim rs As Recordset

strSql = "select * from tb_gys"
Set rs = GetRecordSet(strSql)
Set DataGrid1.DataSource = rs
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2

Text1(0).Enabled = False
Text1(1).Enabled = False
Text1(2).Enabled = False
Text1(3).Enabled = False
Text1(4).Enabled = False
Text1(5).Enabled = False

End Sub

'*** 自定义数据信息反绑定的过程 ***
Private Sub JionBack()
On Error Resume Next '执行错误处理
Dim SLen As Integer
Dim strSql As String
Dim rs As Recordset
strSql = "select * from tb_gys"
Set rs = GetRecordSet(strSql)
If rs.RecordCount > 0 Then
StrNum = Val(rs.Fields("gys_ID"))
SLen = Len(Trim(StrNum))
Select Case SLen '位数不足者补0
Case 1
StrTemp = "00000"
Case 2
StrTemp = "0000"
Case 3
StrTemp = "000"
Case 4
StrTemp = "00"
Case 5
StrTemp = "0"
Case 6
StrTemp = ""
End Select
'将数据信息反绑定到文本框当中
Text1(0).Text = rs(1)
Text1(1).Text = rs(2)
Text1(2).Text = rs(3)
Text1(3).Text = rs(4)
Text1(4).Text = rs(5)
Text1(5).Text = rs(6)
End If
rs.Close
Set rs = Nothing
End Sub

[此贴子已经被作者于2007-8-28 11:35:11编辑过]

急啊,,有人会吧,,教教我吧!

我想要的是把我点中datagrid控件的哪一行,就把该行的记录显示在窗体的控件中...为什么它永远只会显示第一行啊?

设置Text的DataSource和DataField

strSql = "select * from tb_gys"
Set rs = GetRecordSet(strSql)
在紅色的部分加一個條件。。。當你選擇哪 一行。。就得到當前行的供應商編號。。。
設置strsql ="select * from tb_gys where 供應商編號='等於當前行供就商編號'"
再Set rs = GetRecordSet(strSql)
If rs.RecordCount > 0 Then
StrNum = Val(rs.Fields("gys_ID"))
SLen = Len(Trim(StrNum))
Select Case SLen '位数不足者补0
Case 1
StrTemp = "00000"
Case 2
StrTemp = "0000"
Case 3
StrTemp = "000"
Case 4
StrTemp = "00"
Case 5
StrTemp = "0"
Case 6
StrTemp = ""
End Select
'将数据信息反绑定到文本框当中
Text1(0).Text = rs(1)
Text1(1).Text = rs(2)
Text1(2).Text = rs(3)
Text1(3).Text = rs(4)
Text1(4).Text = rs(5)
Text1(5).Text = rs(6)
End If
rs.Close
Set rs = Nothing
End Sub
這樣就可以了。

[此贴子已经被作者于2007-8-31 17:03:28编辑过]

但是每一行的供应商编号都不一样啊,
設置strsql ="select * from tb_gys where 供應商編號='等於當前行供就商編號'"
那我设strSql="select * from tb_gys where gys_IDs='当前行供应商编号'"
但我怎么会知道当前行供应商编号如何写啊?我事前是不知道当前行供应商编号是多少的啊?我试过设strSql="select * from tb_gys where gys_IDs=datagrid1.row"定位当前行,但是失败了,语法不允许这样写...

用另一中控件glodgrid 别用datagrid

但是glodgrid 这个控件更加不会用啊......

datagrid1.row 返回的是当前行。。。不是当前行文本。。。

我试了用
'将数据信息反绑定到文本框当中
Text1(0).Text = datagrid1.text
Text1(1).Text = datagrid1.text
Text1(2).Text = datagrid1.text
Text1(3).Text = datagrid1.text
Text1(4).Text = datagrid1.text
Text1(5).Text = datagrid1.text
这样,每一个控件全部都只是返回我选中的那一个内容,不会返回同一行的其它内容.