主题：文本编辑

Dim s As String = "【增加外部查询表】【增加外部查询表】"
s = s.replace("】【","】"  & vbcrlf & "【")
output.show(s)

建议你加载所有数据，然后：

 

For Each r as Row in Tables("xxx").Rows

   r("内容") = r("内容").replace("】【","】" & vbcrlf & "【")
Next

Tables("xxx").Save()

 

这样一劳永逸了。

你可以设置快捷输入的：

http://www.foxtable.com/help/topics/0741.htm

 

在第一列输入的ab会被替换为一句话，输入ef会被替换为另一句话，不管是在窗口还是表中录入，都是有效的。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目49.rar

替换不是一个样的，例如输入：

 

我的地址是：AA

 

输入完成后，会自动将AA替换为你的真实地址。

 

如果输入：

 

我的地址是：北京阜外大街108号

 

由于不是AA，所以就不会替换

 

 

我晕了，代码是自己写的，你替换AA就行了，谁让你替换“我的地址是：”啊：

 

If e.DataCol.Name = "第一列" AndAlso e.NewValue > "" Then
    e.NewValue  = e.NewValue.Replace("ab","foxtable帮助那文件")
    e.NewValue  = e.NewValue.Replace("ef","一切皆有可能")
    e.NewValue  = e.NewValue.Replace("aa","深圳市人民大道中108号")
End If

 

 

 

 

窗口也做同样的设计：

http://www.foxtable.com/help/topics/0739.htm

 

不还意思，贴错了，应该是：

 

http://www.foxtable.com/help/topics/0741.htm