Question

vb中怎么做到单击表格中某行内容时可以弹出解释的文本内容，求vb高手指教一二

如图所示

这是用MSFlexGrid控件做出来的一个表格，里面读取的是数据库中的内容，我现在想做的是，可以通过点击某一行（应该检测数数据库的内容吧），在窗体上右面那两文本框里，显示出相对应的文本信息。这个应该怎么做呀？请高手指教啊 小弟感激不尽 如能解决 必加悬赏 加好评 高手来啊 在线等

Answer 1

Dim A(14) As String '故障原因
Dim B(14) As String '解决方案
Private Sub Form_Load()
 MSFlexGrid1.Rows = 14
 For i = 1 To 14
   A(i) = "故障原因：" & i
   B(i) = "解决方案：" & i
 Next
End Sub

Private Sub MSFlexGrid1_Click()
 With MSFlexGrid1
   Text1.Text = A(.Row)
   Text2.Text = B(.Row)
 End With
End Sub
'给个简单例子，请参考采纳！谢谢！

追问

恩 挺好的 非常感谢你 可是下面这个我不懂呀
Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
Text1.Text = A(.Row)
Text2.Text = B(.Row)
End With
End Sub
能在指教下吗？？还有文本框里的内容应该存放在哪里呀？

追答

Text1.Text = A(.Row) 其中.Row是指你点击MSFlexGrid1时当前的行数。注意.Row是由0开始，一般第一行都会做为表头使用。例如点击第二行时.Row值为1，那么文本框Text1就显示A(1)的函数值。
你需要显示的文本框内容你可以先保存在文本文件内或数据库中，使用时再提取，或在程序中直接使用字符串赋值。

追问

哦 明白了 提取文本框内容你能帮我举个例子吗？如果直接赋值怎么赋值呀？？谢谢你了 我给你增加悬赏

追答

'直接赋值方法：
Dim A(14) As String '故障原因
Dim B(14) As String '解决方案
Private Sub Form_Load()
 MSFlexGrid1.Rows = 14
 A(1) = "故障原因：这就是故障原因一" 
 A(2) = "故障原因：这就是故障原因二"
 A(3) = "故障原因：这就是故障原因三" 
 A(4) = "故障原因：这就是故障原因四"
 A(5) = "故障原因：这就是故障原因五" 
 A(6) = "故障原因：这就是故障原因六"
 A(7) = "故障原因：这就是故障原因七" 
 A(8) = "故障原因：这就是故障原因八"
 A(9) = "故障原因：这就是故障原因九" 
 A(10) = "故障原因：这就是故障原因十"
 A(11) = "故障原因：这就是故障原因十一" 
 A(12) = "故障原因：这就是故障原因十二"
 A(13) = "故障原因：这就是故障原因十三" 
 B(1) = "解决方案：解决方案1" 
 B(2) = "解决方案：解决方案2"
 B(3) = "解决方案：解决方案3" 
 B(4) = "解决方案：解决方案4"
 B(5) = "解决方案：解决方案5" 
 B(6) = "解决方案：解决方案6"
 B(7) = "解决方案：解决方案7" 
 B(8) = "解决方案：解决方案8"
 B(9) = "解决方案：解决方案9" 
 B(10) = "解决方案：解决方案10"
 B(11) = "解决方案：解决方案11" 
 B(12) = "解决方案：解决方案12"
 B(13) = "解决方案：解决方案13" 
End Sub
 
Private Sub MSFlexGrid1_Click()
 With MSFlexGrid1
   Text1.Text = A(.Row)
   Text2.Text = B(.Row)
 End With
End Sub

我看你的上面程序中有用到了Data1控件，应该MSFlexGrid是从数据库中提取内容，建议你在数据库中添加两项：故障原因、和解决方法。在MSFlexGrid引用时可以把这两列的宽度设置为0，得到掩藏的效果，然后点击该行时，直接引用MSFlexGrid的故障原因单元格和MSFlexGrid的解决方法单元格的内容到两个文本框中。

Answer 2

查询数据库就是，我的群里有帮助文档

追问

什么群啊？我找不到呀？能给我发过来吗？是你的百度文档里吗 ？我找了一下还是没找到 你就好人做到底吧 帮我发过来好吗？？

追答

VB人生 238706019

追问

我昨天加上了 可是没找着帮助的资料 希望你能指导一下