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