MSHflexgrid控件急救!!!50分!
兄弟在编写订单录入时,将订单录入的纪录填入网格。一单对网格一条纪录。
填写完毕,对网格进行右击操作,可以弹出菜单项[添加、删除],请问如何实现插入?
添加的代码如下:
Dim I As Integer
Dim j As Integer
With Me.MSH
For I = 1 To .Rows - 1
If .TextMatrix(I, 2) = "" Then
.row = I
.col = 1
Exit Sub
End If
Next
I = .row
.Rows = .Rows + 1
.row = .Rows - 1
.col = 1
.ColSel = .Cols - 1
.TextMatrix(.row, 1) = SelMaxLine(ME.MSH) + 1
End With
End Sub
'//注:MSH为网格控件。
谢谢!!!