Foxtable(狐表)用户栏目专家坐堂 → 像EXCEL一样单元格输入方法


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

主题:像EXCEL一样单元格输入方法

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


加好友 发短信
等级:六尾狐 帖子:1359 积分:12028 威望:0 精华:0 注册:2012/3/5 11:32:00
像EXCEL一样单元格输入方法  发帖心情 Post By:2015/10/27 10:08:00 [只看该作者]

excel

 录入的时候 ,你录入一个字符  单元格 翻查记忆,后边的字符会涂黑,  这个在foxtable 里面怎么做

 

请教下


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/27 11:15:00 [只看该作者]

mark 翻查记录

 

只是做个效果,红色代码自己灵活变通,弄成字典先查询也可以

 

ChangeEdit事件

 

If e.Col.name = "第一列" Then
    vars("text") = e.text
    MyTimers("计划1").Interval = 500
    MyTimers("计划1").Enabled = True
End If

 

计划管理 计划1

 

MyTimers("计划1").Enabled = False
Dim str As String = "我们是中国人"
Dim text As String = vars("text")
If text > "" AndAlso str.StartsWith(text) Then

    systemready = False
    str = str.Replace(text, "")
    Sendkeys.SendWait(str)
    For i As Integer = 1 To str.Length
        Sendkeys.SendWait("{LEFT}")
    Next
    Sendkeys.Send("+{END}")
    systemready = True
End If


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


加好友 发短信
等级:六尾狐 帖子:1359 积分:12028 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2015/10/27 15:40:00 [只看该作者]

老师问下  这个顺序问题

 

 

MyTimers("计划1").Enabled = False
Dim str As String = "我们是中国人"
Dim text As String = vars("text")
If text > "" AndAlso str.StartsWith(text) Then

    systemready = False
    str = str.Replace(text, "")
    Sendkeys.SendWait(str)
    For i As Integer = 1 To str.Length
        Sendkeys.SendWait("{LEFT}")
    Next
    Sendkeys.Send("+{END}")
    systemready = True
End If

 

计划任务里面 第一条执行的语句是

MyTimers("计划1").Enabled = False

就算开了 应该也会马上关,

 

为什么 可以执行下边的内容,有点不了解!

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/27 15:58:00 [只看该作者]

关闭了,只是下次不执行,这次还要执行一下的。

 回到顶部