以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中按钮提取字符需求在附件文档中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26506)

--  作者:laoshu4569
--  发布时间:2012/12/6 15:15:00
--  [求助]窗口中按钮提取字符需求在附件文档中
窗口中按钮提取字符需求在附件文档中
[此贴子已经被作者于2012-12-6 15:17:08编辑过]

--  作者:laoshu4569
--  发布时间:2012/12/6 15:18:00
--  
已上传
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.rar


--  作者:lin_hailun
--  发布时间:2012/12/6 15:18:00
--  
 什么问题?具体
--  作者:laoshu4569
--  发布时间: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