- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在KeyPressEdit事件里赋值怎么会无效？ (http://foxtable.com/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事件里程序，明明看到了赋值，怎么实际上看不到？
示例如下，谢谢！
-- 发布时间：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