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