请问MSFlexGrid控件怎么才能写？

Question

用它的全能版
到videoSoft的站点看看

Answer 1

不可能修改，微软的建议办法是，用textbox 动态的移动到选中的单元格上，然后使textbox可见,使text1.text=msflexgrid.text修改text1.text后，msflexgrid.text=text1.text确定后
使textbox 不可见

Answer 2

我的email是[email protected]
thanks

Answer 3

Public Sub MGridKeyPress(nKey As Integer, nLeft As Integer, nTop As Integer, MGrid As MSFlexGrid, TxtEdit As TextBox, Optional BCheck As Boolean = False)
'本函數在 MSFlexGrid 控件中按鍵時,產生動作的處理
Dim ir, ic As Integer
If BCheck = True And MGrid.Row > 0 Then  'BCheck 是檢查數據中是否可為 NULL
        ir = MGrid.Row - 1
        For ic = 1 To MGrid.Cols - 1
                If MGrid.TextMatrix(ir, ic) = "" Then
                        MsgBox "上一行還有些數據未填寫", 48, "錄入提示"
                        Exit Sub
                End If
        Next
End If
Select Case nKey
       Case 0 To 32
                TxtEdit = Trim(MGrid)
                TxtEdit.SelStart = 1000
       Case Else
                TxtEdit = Chr(nKey)
                TxtEdit.SelStart = 1
End Select
TxtEdit.Move MGrid.CellLeft + nLeft, MGrid.CellTop + nTop, MGrid.CellWidth, MGrid.CellHeight
TxtEdit.Visible = True
TxtEdit.SetFocus
End Sub

Answer 4

Private Sub MGrid_LeaveCell()
     if TxtEdit.Visible=False then exit sub
     MGrid=TxtEdit.text
     TxtEdit.visible=false
End Sub

Answer 5

Private Sub MGrid_KeyPress(KeyAscii As Integer)
....即按住MsFlexGrid控件時顯示的坐標
    MGridKeyPress KeyAscii,左邊數, 上邊數, MGrid, TxtEdit, False
....
End Sub

Answer 6

你可以在flexgrid(在form1上）的双击事件中弹出另一个窗体（form2)！然后把你点击的这条记录的信息反映到form2的窗体的text中，然后在form2中修改数据！最后再执行form1.recordset.data1.refresh(假设flexgrid1和data1绑定）form1.recordset.msflexgrid1.refresh 即可将修改结果立即反映上去！！！！！
如果需要代码与我联系
Oicq:31372306