以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  连接符号咋用呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175235)
--  作者：xnsiwei
--  发布时间：2022/2/24 17:54:00
--  连接符号咋用呢？
表DataColChanged事件代码如下

If e.DataCol.Name = "排污单位名称" Then
    Dim pr As DataRow = e.DataRow \'定义变量
    pr("发证资料") = pr("排污单位名称")
End If

主要是批量把“排污单位名称”列的名称提取到“发证资料”列加个[ ] 号，变成目录文件夹，方便打开
如：利达公司   转变成  [利达公司]

谢谢

[此贴子已经被作者于2022/2/24 18:25:46编辑过]
--  作者：有点蓝
--  发布时间：2022/2/24 20:18:00
--  
pr("发证资料") = "[" &  pr("排污单位名称") & "]"
--  作者：xnsiwei
--  发布时间：2022/2/24 22:03:00
--  
谢谢