马金凤 梨园春:问VB高手,datagrid如何设置单击某一行时用MSGBOX弹出该行信息?

来源:百度文库 编辑:高考问答 时间:2024/04/29 10:20:15
datagrid如何设置单击某一行时用MSGBOX弹出该行信息?
小弟不胜感激
我希望得到准确的回答
请哥哥们不要装比
装比遭雷霹

代码如下:
Private Sub DataGrid4_Click()
Dim Msg, Style, Title, Response, MyString', Ctxt, help
Dim xs_shuju(10) As Variant
For i = 0 To 3
xs_shuju(i) = Adodc4.Recordset(i)
Next
Msg = "数据显示" ' 定义信息。
Style = vbYes
Title = "说明" ' 定义标题。
Msg = Msg & vbNewLine & _
"Num: " & xs_shuju(0) & vbNewLine & _
"Shuju1:" & xs_shuju(1) & vbNewLine & _
"Shuju2:" & xs_shuju(2) & vbNewLine & _
"Shuju3:" & xs_shuju(3) & vbNewLine
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
End If
End Sub