Spread6.0下拉框问题

收藏

您好，今天遇到这么个问题：
我们用的是spread6.0，其中有一列是下拉框，将这一列其中的一个单元格聚焦，然后在离开焦点的时候就会触发spread 的Change事件，请问这是为什么呢？

ZenosZeng · ZenosZeng

这应该和你的设置有关，比如，只是有下面的代码，就不会出发Change事件，如果需要，可以将你的程序发来我们调试一下：

private void Form1_Load(object sender, EventArgs e)
{
FarPoint.Win.Spread.CellType.ComboBoxCellType cbct = new FarPoint.Win.Spread.CellType.ComboBoxCellType();
cbct.Items = new string[] { "AA", "BB", "CC", "DD" };
fpSpread1.ActiveSheet.Columns[2].CellType = cbct;
}
private void fpSpread1_Change(object sender, FarPoint.Win.Spread.ChangeEventArgs e)
{
}

复制代码

h465716405 · h465716405

您好，不好意思，我没表达清除，是这样的。先将其中的一个单元格选定一个值，在离开焦点的时候会触发Change事件，然后在多选框列的另一个单元格上点一下，但不选定任何内容，也会触发Change事件，其实下拉框的值没发生任何改动。麻烦您再看一下，谢谢。

h465716405 · h465716405

代码如下：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim cbct As FarPoint.Win.Spread.CellType.ComboBoxCellType
      cbct = New FarPoint.Win.Spread.CellType.ComboBoxCellType()

      cbct.Items = New String() {"AA", "BB", "CC", "DD"}

      FpSpread1.ActiveSheet.Columns(0).CellType = cbct
End Sub

Private Sub FpSpread1_Change(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles FpSpread1.Change
      MessageBox.Show("aasdf")
End Sub

ZenosZeng · ZenosZeng

h465716405 你好

在Spread中如果给整理设置同一个ComboBoxCellType，只要其中一个单元格的值发生改变，再次点击该列中任意一个单元格，如果没有选择ComboBox中的任何一个值，但是此时已经修改了单元格的值，点击之前的值是 nothing，点击之后是 ""，所以处罚了change事件。

h465716405 · h465716405

可是我怎么做才能不让它触发那个Change事件呢？？

ZenosZeng · ZenosZeng

可以尝试在Load事件中将Value为Nothing的都设置为""

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cbct As FarPoint.Win.Spread.CellType.ComboBoxCellType
cbct = New FarPoint.Win.Spread.CellType.ComboBoxCellType()
cbct.Items = New String() {"AA", "BB", "CC", "DD"}
FpSpread1.ActiveSheet.Columns(0).CellType = cbct
FpSpread1.ActiveSheet.RowCount = 10
FpSpread1.ActiveSheet.Cells(0, 0).Value = "BB"
For index As Integer = 0 To FpSpread1.ActiveSheet.RowCount - 1
If FpSpread1.ActiveSheet.Cells(index, 0).Value Is Nothing Then
FpSpread1.ActiveSheet.Cells(index, 0).Value = ""
End If
Next
End Sub

复制代码

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

[已处理] Spread6.0下拉框问题

6 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人