以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表中空单元内回车怎么检测出来？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129358)
--  作者：新福星
--  发布时间：2018/12/27 10:24:00
--  [求助]表中空单元内回车怎么检测出来？
一个表中内，单元格内如果有内容回车可以检测出来。如果单元格为空值，再回车，怎么检测不出来？怎么能检测出来？谢谢
--  作者：有点甜
--  发布时间：2018/12/27 11:20:00
--  

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

 

不然，请具体说明如何操作。
--  作者：新福星
--  发布时间：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 这个也无法检测出来。

谢谢

 
--  作者：新福星
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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。不会做实例发上来说明。