代码如下:
Private Sub MHFGrid_RowColChange()
frmZiliao.Show vbModal
frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.Row, 0)
.....
End Sub
想按一下MHFGrid的某行,某行中的数据在显示的窗体上显示,但第一次按总是出来空的没任何显示,按第二次后方能显示
...全文
25318打赏收藏
MSHFlexGrid的问题
代码如下: Private Sub MHFGrid_RowColChange() frmZiliao.Show vbModal frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.Row, 0) ..... End Sub 想按一下MHFGrid的某行,某行中的数据在显示的窗体上显示,但第一次按总是出来空的没任何显示,按第二次后方能显示
你先在初始化時加載數據
然後讓 MHFGrid.rowsel=你要顯示的行,再在MHFGrid的RowColChange事件中寫下下面的代碼
Private Sub MHFGrid_RowColChange()
frmZiliao.Show vbModal
frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.Row, 0)
.....
End Sub
再在MHFGrid的Click事件中寫如下代碼,就可以了
Private Sub MHFGrid_Click()
frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.RowSel, 0)
.....
End Sub
写在MSHFlexGrid1_Click事件中,先判断一下点击的行列中的信息,再执行相关代码:
Private Sub MHFGrid_Click()
If MHFGrid.TextMatrix(MHFGrid.Row, MHFGrid.0) = "" Then
Exit Sub
End If
frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.Row, 0)
frmZiliao.label1="asasas"
.....
frmZiliao.Show vbModal
End Sub
这段代码是写在主界面代码中
Private Sub MSHGrid_RowColChange()
frmGY1.Show 1
frmGY1Smode = 2
End Sub
下面的代码是写在frmGY1的Form_Load()中
ElseIf frmGY1Smode = 2 Then
txtSQL = "select * from .. where ... ='" & Trim(...MSHGrid.TextMatrix(...MSHGrid.Row, 0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With mrc
For intCount = 0 To 6
txtItem(intCount) = .Fields(intCount)
Next intCount
End With
txtItem(0).Enabled = False
End If
End If
应该可以。
Private Sub MHFGrid_RowColChange()
frmZiliao.Text1 = MHFGrid.TextMatrix(MHFGrid.Row, 0)
frmZiliao.label1="asasas"
.....
frmZiliao.Show vbModal
End Sub