1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub HFGridOverTimeList_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If HFGridOverTimeList.Rows > 1 Then
With HFGridOverTimeList
If .MouseRow = 0 Then
.Row = .MouseRow + 1
ElseIf .MouseRow = .Rows - 1 Then
.Row = .MouseRow - 1
Else
.Row = .MouseRow
End If
CURRENTROW = .Row
.Col = 0
.ColSel = .Cols - 1
End With
End If
End Sub