以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在KeyPressEdit事件里赋值怎么会无效?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129414)

--  作者:新福星
--  发布时间:2018/12/28 6:07:00
--  [求助]在KeyPressEdit事件里赋值怎么会无效?
If e.Col.name = "X" Then  \'如果正在输入摘要
    If e.KeyChar="," Then
        \' e.Cancel=True
        
        Dim zz As Integer=  e.Row.Index-1
        Do While zz>=0
            
            Dim s As Row= e.Table.Rows(zz)
            Dim zy As String=  s("X")
            
            If zy.Length<=1 Then
                zz-=1
            Else
                e.Row("X")=zy
               MessageBox.Show(e.Row("X")) 
                Exit Do
            End If
        Loop
    End If
    
End If

该程序的功能期望在表中第1行之后,任意行X列录入逗号(,)后,将此行之上非空X列内容COPY到此行X列中;
在KeyPressEdit事件里程序,明明看到了赋值,怎么实际上看不到?
示例如下,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip



--  作者:有点甜
--  发布时间:2018/12/28 9:39:00
--  

If e.Col.name = "X" Then  \'如果正在输入摘要
    If e.KeyChar="," Then
        \' e.Cancel=True
       
        Dim zz As Integer=  e.Row.Index-1
        Do While zz>=0
           
            Dim s As Row= e.Table.Rows(zz)
            Dim zy As String=  s("X")
           
            If zy.Length<=1 Then
                zz-=1
            Else
                e.Text=zy
                Exit Do
            End If
        Loop
    End If
   
End If

 

http://www.foxtable.com/webhelp/scr/0620.htm