Private Sub mn_Add_Click() MSHFlexGrid1.AddItem MSHFlexGrid1.Row
MSHFlexGrid1.Col = 0
End SubPrivate Sub mn_delete_Click()
Dim r1 As Integer
r1 = MSHFlexGrid1.Row
If r1 <= 1 Then
MsgBox "不能删除固定行!", vbOKOnly, "提示框!"
Else
MSHFlexGrid1.RemoveItem r1
MSHFlexGrid1.Col = 0
end if
End sub 代码很简单,不知道为什么就不行啊,谢谢!
MSHFlexGrid1.Col = 0
End SubPrivate Sub mn_delete_Click()
Dim r1 As Integer
r1 = MSHFlexGrid1.Row
If r1 <= 1 Then
MsgBox "不能删除固定行!", vbOKOnly, "提示框!"
Else
MSHFlexGrid1.RemoveItem r1
MSHFlexGrid1.Col = 0
end if
End sub 代码很简单,不知道为什么就不行啊,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货