Foxtable(狐表)用户栏目专家坐堂 → [求助]表中空单元内回车怎么检测出来?


  共有2282人关注过本帖树形打印复制链接

主题:[求助]表中空单元内回车怎么检测出来?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]表中空单元内回车怎么检测出来?  发帖心情 Post By:2018/12/27 10:24:00 [只看该作者]

一个表中内,单元格内如果有内容回车可以检测出来。如果单元格为空值,再回车,怎么检测不出来?怎么能检测出来?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/27 11:20:00 [只看该作者]

没看懂你的意思。请你在 keydown、keydownEdit 里面写代码测试。

 

不然,请具体说明如何操作。


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2018/12/27 18:07:00 [只看该作者]

'KeyPressEdit


Select Case e.Col.Name
    Case "列名"
          MessageBox.Show(e.KeyChar)
        If e.KeyChar="," Then
                     
        End If
       
End Select

 

1 在这个事件中,可以看到  MessageBox.Show(e.KeyChar) 结果,但是 If e.KeyChar="," Then  这个检测不出来。

2 同样,如何检测出回车呢? If e.KeyChar=Chr(13) Or  e.KeyChar=Chr(10) Then 这个也无法检测出来。

谢谢

 


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2018/12/27 19:31:00 [只看该作者]

 

'KeyDown

 

Dim r As Row

 

If e.KeyCode = Keys.Enter  Or e.KeyCode = 188 Then

   

    r= e.Table.Current

    If r Is Nothing Then Return

    If r("摘要") ="," Or r.Isnull("摘要")  Then

        r("摘要") =Nothing

        Dim zz As Integer= r.Index-1

        Do While zz>=0

           

            Dim s As Row= e.Table.Rows(zz)

            Dim zy As String=  s("摘要")

            ' If s.Isnull("摘要")=True  Or  s("摘要")="," Then

            If zy.Length<=1 Then

                zz-=1

            Else

               

                r("摘要")=zy 's("摘要")

               

                'MessageBox.Show(r("摘要"))

                Exit Do

            End If

        Loop

    End If

   

End If

 

如上代码完成功能是,当在回车或者在摘要列里录入逗号时,找到此行上面行非空摘要列的内容,赋值到此行摘要列里。

现在回车是好用的,但是录入逗号(,)时不好使。如果加一行'MessageBox.Show(r("摘要")),则又好使了。怎么回事?谢谢

 

[此贴子已经被作者于2018/12/27 20:00:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/27 21:06:00 [只看该作者]

以下是引用新福星在2018/12/27 18:07:00的发言:

'KeyPressEdit


Select Case e.Col.Name
    Case "列名"
          MessageBox.Show(e.KeyChar)
        If e.KeyChar="," Then
                     
        End If
       
End Select

 

1 在这个事件中,可以看到  MessageBox.Show(e.KeyChar) 结果,但是 If e.KeyChar="," Then  这个检测不出来。

2 同样,如何检测出回车呢? If e.KeyChar=Chr(13) Or  e.KeyChar=Chr(10) Then 这个也无法检测出来。

谢谢

 

 

1、我测试没问题。

 

2、我测试页没问题。

 

3、请确认你是在 KeyPressEdit 写代码。请认认真真测试keydownedit、keypressedit。不会做实例发上来说明。


 回到顶部