vb msflexgrid控件中如果实现通过鼠标点击选择行呢

发布网友发布时间：2023-09-01 02:47

共1个回答

热心网友时间：2023-12-07 16:38

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

我想在msflexgrid控件中通过鼠标点击选择行的内容,显示在textbox中.

我的代码是这样

Private Sub MSFlexGrid1_Click()

Text5(0).Enabled = True

Text5(1).Enabled = True

Text5(2).Enabled = True

Text5(3).Enabled = True

Text5(4).Enabled = True

Text5(5).Enabled = True

Text5(6).Enabled = True

Dim row1 As Integer

row1 = MSFlexGrid1.row

Adodc2.RecordSource = "select * from 仓库管理 where 食品名称=" + Trim(MSFlexGrid1.TextMatrix(row1, 0))

Adodc2.CommandType = adCmdTable

Adodc2.RecordSource = "仓库管理"

Adodc2.Refresh

MSFlexGrid1.AllowBigSelection = True

With Adodc2.Recordset

Text5(0) = .Fields(0)

Text5(1) = .Fields(1)

Text5(2) = .Fields(2)

Text5(3) = .Fields(3)

Text5(4) = .Fields(4)

Text5(5) = .Fields(5)

Text5(6) = .Fields(6)

End With

For i = 0 To 6

fstext(i) = Text5(i)

Next i

RecNO = Trim(MSFlexGrid1.TextMatrix(row1, 0))

Text5(0).SetFocus

Command9.Enabled = True

Command10.Enabled = True

End Sub

但是无论点哪条都是第一行的内容,请各位帮个忙.

解析:

我来拉,哈哈

什么时候这么认真了啊...还好做好了呀