Private Sub FpSpread1_MouseDown(sender As Object, e As MouseEventArgs) Handles FpSpread1.MouseDown
'单元格为button时，触发的是MOUSEDOWN事件
'获取点击的单元格坐标方法
Dim info As FarPoint.Win.Spread.HitTestInformation
info = Me.FpSpread1.HitTest(e.X, e.Y)
'因为鼠标的点击都会触发mousedown事件做转换，但是点击border等区域的时候是无法获取到行列的信息，
'这种情况下hittestinfomation.viewportinfo是null, 所以要添加一个判断如下
If info.ViewportInfo.Row.ToString = -1 Then
MsgBox("未选中任何数据行。", MsgBoxStyle.Information)
Else
此处是执行的数据库操作代码
End If
End Sub
以上是写的防止点到非行列区域报错，按此方法行列内无数据点击报错已解决，但单击列头时还会报错，应如何处理？另外，如果想单击列头，则按列头排序如何实现？ |
|
陕公网安备：61019002000258 |
隐私政策 |
网站地图