找回密码
 立即注册

QQ登录

只需一步,快速开始

dlerror
中级会员   /  发表于:2021-7-5 17:09  /   查看:2964  /  回复:3
需求是在单元格中输入内容,按回车时,先校验输入内容,不符合时Msgbox弹出消息,然后让当前单元格继续保持编辑状态。
现在是Msgbox弹出消息后,单元格不能保持编辑状态。
我写了个简单Sample,麻烦版主帮我看一下,怎样能实现需求。

开发环境:Win10 + VS2017 + ComponentOne Studio 2017

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

3 个回复

倒序浏览
Richard.Ma讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2021-7-5 17:53:43
沙发
问题已经收到,这边需要一些时间验证办法,然后给你回复
回复 使用道具 举报
dlerror
中级会员   /  发表于:2021-7-5 18:10:31
板凳
Richard.Ma 发表于 2021-7-5 17:53
问题已经收到,这边需要一些时间验证办法,然后给你回复

了解,辛苦版主了。
回复 使用道具 举报
Richard.Ma讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2021-7-5 18:24:34
地板
本帖最后由 Richard.Ma 于 2021-7-27 16:36 编辑

可以通过下面的代码来实现,但是这样进入编辑状态还是会有其他的问题,建议还是通过官方提供的鼠标双击进入编辑状态的方式

  1.     Private Sub AxVSFlexGrid1_KeyDownEdit(sender As Object, e As AxVSFlex8DAO._IVSFlexGridEvents_KeyDownEditEvent) Handles AxVSFlexGrid1.KeyDownEdit
  2.         Select Case e.keyCode
  3.             Case Keys.Enter
  4.                 If Not check() Then
  5.                     MsgBox(AxVSFlexGrid1.EditText)
  6.                     AxVSFlexGrid1.FinishEditing(False)
  7.                     Dim str As Int16 = AxVSFlexGrid1.Col
  8.                     AxVSFlexGrid1.Col = -1
  9.                     AxVSFlexGrid1.Col = str
  10.                     AxVSFlexGrid1.EditCell()
  11.                     Exit Sub
  12.                 End If
  13.                 AxVSFlexGrid1.Row += 1
  14.         End Select
  15.     End Sub
复制代码


回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部