主题：[求助] 附件问题

BeforeSelChange事件中写有以下命令：这个问题只有在以下情况才会发生

 

 

 

If vars("sort")=False Then
If e.NewRange.RowSel < 0 Then
    vars("del") = True
End If
If e.Table.current IsNot Nothing Then
    If e.NewRange.RowSel >= 0 AndAlso vars("del") = False AndAlso e.Table.current.DataRow.RowState <> DataRowState.Unchanged AndAlso vars("add") = False Then
       If e.NewRange.RowSel <> e.OldRange.RowSel Then
            e.Cancel=True
            MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
        End If
    End If
End If
vars("add")=False
End If

此主题相关图片如下：360截图20160513121346596.jpg

加入代码弹出值看看

 

msgbox(e.Table.Rows.Count & " " & vars("add"))

 

最好是有例子测试。