danlan 你好,
1.不好意思,我没有重现你的问题,下面是我的代码,请对比:
- Private Sub Form_Load()
- fpSpread1.OperationMode = OperationModeRow
- fpSpread1.Col = 1
- fpSpread1.ColMerge = MergeAlways
- End Sub
- Private Sub fpSpread1_LeaveRow(ByVal Row As Long, ByVal RowWasLast As Boolean, ByVal RowChanged As Boolean, ByVal AllCellsHaveData As Boolean, ByVal NewRow As Long, ByVal NewRowIsLast As Long, Cancel As Boolean)
- If Row <> NewRow Then
- If Cancel = False Then
- fpSpread1.Col = -1
- fpSpread1.Row = Row
- fpSpread1.BackColor = RGB(255, 255, 255)
- fpSpread1.Row = NewRow
- fpSpread1.BackColor = RGB(255, 10, 111)
-
- End If
- End If
- End Sub
复制代码 如果仍然有疑问,请发 Demo 论坛调试,感谢你的配合~:-D
2.不好意思, Case 2 无法实现。 |