spread怎麼判斷行號變了

收藏

spread行變得時候能触发什么事件?
目前想实现的功能是：
在spread的某一行移动的时候，对该行的某列（A列）进行合计，当光标移出该行时，进行该行的A列的值check，如果是0才能移出本行，否则不能移出，有什么方法吗？
谢谢！！！！
Windows xp，Spread for .net 3.0.2025.2005，VisualStudio 2008

iceman · iceman

回复 1楼yrpting的帖子

参考代码如下：

private void Form1_Load(object sender, EventArgs e)
{
this.fpSpread1.AllowRowMove = true;
this.fpSpread1.RowDragMove += new FarPoint.Win.Spread.DragMoveEventHandler(fpSpread1_RowDragMove);
}
void fpSpread1_RowDragMove(object sender, FarPoint.Win.Spread.DragMoveEventArgs e)
{
int row = e.Index;
if (this.fpSpread1.ActiveSheet.Cells[row,0].Text=="0")
{
}
else
{
e.Cancel = true;
}
}

复制代码

yrpting · yrpting

谢谢版主，但是不知道为什么事件不能触发，我用的是vb.net，下面是代码，请版主帮忙看一下，哪里不对，谢谢

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FpSpread1.AllowRowMove = True
End Sub
Private Sub FpSpread1_RowDragMove(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragMoveEventArgs) Handles FpSpread1.RowDragMove
MsgBox("aa")
End Sub
End Class

复制代码

我知道这个事件的用处了，我写的问题太模糊了，想要实现的不是这个，而是：
当光标在spread的某一行移动的时候，对该行的某列（A列）进行合计，当光标移出该行时，进行该行的A列的值check，如果是0才能移出本行，否则不能移出，有什么方法吗？

例：
spread有两行（RA，RB）三列（CA,CB,CC）且光标此时在RACA，
当光标在RA这一行中移动时，进行RARC的合计，当光标移到RB行时，进行RARC的check，如果为0，就移到RB行，否则，光标不能移动

这样能通过事件实现吗？

yrpting · yrpting

回复 2楼iceman的帖子

谢谢版主，但是不知道为什么事件不能触发，我用的是vb.net，下面是代码，请版主帮忙看一下，哪里不对，谢谢Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.FpSpread1.AllowRowMove = True

End Sub

Private Sub FpSpread1_RowDragMove(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragMoveEventArgs) Handles FpSpread1.RowDragMove

MsgBox("aa")

End Sub

End Class

复制代码我知道这个事件的用处了，我写的问题太模糊了，想要实现的不是这个，而是：
当光标在spread的某一行移动的时候，对该行的某列（A列）进行合计，当光标移出该行时，进行该行的A列的值check，如果是0才能移出本行，否则不能移出，有什么方法吗？

例：
spread有两行（RA，RB）三列（CA,CB,CC）且光标此时在RACA，
当光标在RA这一行中移动时，进行RARC的合计，当光标移到RB行时，进行RARC的check，如果为0，就移到RB行，否则，光标不能移动

这样能通过事件实现吗？

iceman · iceman

回复 4楼yrpting的帖子

yrpting 你好，
感谢你的问题反馈，能否把 Demo 发到论坛便于测试？

yrpting · yrpting

回复 5楼iceman的帖子

额。。。弱弱的问一下 demo是什么？代码吗？附件是代码，简单的说了一下，不知道能不能通过事件简单的实现，请帮忙看一下，谢谢！！！

iceman · iceman

回复 6楼yrpting的帖子

yrpting 你好，
请尝试以下代码：

Dim preRow As Integer
Dim preCol As Integer
Private Sub FpSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff
'将总额-账户1-账户2-账户3赋值给剩余
Me.FpSpread1.ActiveSheet.Cells(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 3).Text = _
CDec(Me.FpSpread1.ActiveSheet.Cells(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 0).Value) - _
CDec(Me.FpSpread1.ActiveSheet.Cells(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 1).Value) - _
CDec(Me.FpSpread1.ActiveSheet.Cells(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 2).Value)
preRow = Me.FpSpread1.ActiveSheet.ActiveCell.Row.Index
preCol = Me.FpSpread1.ActiveSheet.ActiveCell.Column.Index
End Sub
Private Sub FpSpread1_EditModeOn(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn
End Sub
Private Sub FpSpread1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellClick
If e.Row <> preRow Then
If Me.FpSpread1.ActiveSheet.Cells(preRow, 3).Text <> "0" Then
e.Cancel = True
End If
End If
End Sub
End Class

复制代码

yrpting · yrpting

回复 7楼iceman的帖子

谢谢版主！！！

iceman · iceman

回复 8楼yrpting的帖子

客气了，感谢你的支持

		自动登录	找回密码
密码			立即注册

[已处理] spread怎麼判斷行號變了

8 个回复

活字格认证

微信认证勋章

元老葡萄