- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中按钮提取字符需求在附件文档中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26506)
-- 发布时间：2012/12/6 15:15:00
-- [求助]窗口中按钮提取字符需求在附件文档中
窗口中按钮提取字符需求在附件文档中
[此贴子已经被作者于2012-12-6 15:17:08编辑过]
-- 发布时间：2012/12/6 15:18:00
--
已上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.rar |
-- 发布时间：2012/12/6 15:18:00
--
什么问题？具体
-- 发布时间：2012/12/6 15:20:00
--
在附件的文档里
-- 发布时间：2012/12/6 15:32:00
--
既然要通过命令窗口或按钮执行，就删除你原来的代码。
命令窗口或按钮的代码：
For Each dr As DataRow In DataTables("表A").DataRows
Dim v As String = dr("wh")
If v > "" Then
v = v.SubString(v.Indexof("]") +1)
v = v.SubString(0,v.LastIndexOf("号"))
dr("qw") = v
End If
Next