以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码不知出了什么问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149170)
--  作者：zhuxinhui
--  发布时间：2020/4/25 11:04:00
--  这段代码不知出了什么问题
这段代码在DATACLCHANGED不知是什么问题，一重置列就自动退出系统
e.DataRow("摘要") = "购"& e.DataRow("简称") & e.DataRow("货物名称")& e.DataRow("规格")& "计" & e.DataRow("数量") & e.DataRow("单位")
e.DataRow("摘要")=e.DataRow("摘要").replace("_","")
e.DataRow("摘要")=e.DataRow("摘要").replace("/","")
e.DataRow("摘要")=e.DataRow("摘要").replace("(","")
e.DataRow("摘要")=e.DataRow("摘要").replace(")","")
e.DataRow("摘要")=e.DataRow("摘要").replace("\\","")
e.DataRow("摘要")=e.DataRow("摘要").replace(" ","")
刚开始还以为是表有问题，查了一大早才知这个有问题，之前一直使用都是可以的，现就今日出现了导不入数据，排查后才知是这出问题
--  作者：李孝春
--  发布时间：2020/4/25 12:38:00
--  回复：（zhuxinhui）这段代码不知出了什么问题
e.DataRow("摘要") = "购"& e.DataRow("简称") & e.DataRow("货物名称")& e.DataRow("规格")& "计" & e.DataRow("数量") & e.DataRow("单位")
e.DataRow("摘要")=e.DataRow("摘要").replace("_","")
e.DataRow("摘要")=e.DataRow("摘要").replace("/","")
e.DataRow("摘要")=e.DataRow("摘要").replace("(","")
e.DataRow("摘要")=e.DataRow("摘要").replace(")","")
e.DataRow("摘要")=e.DataRow("摘要").replace("\\","")
e.DataRow("摘要")=e.DataRow("摘要").replace(" ","")

不要红色这部分  会不会重启项目
--  作者：程兴刚
--  发布时间：2020/4/25 12:56:00
--  
Dim s as String = e.DataRow("摘要")
if s > ""
     e.DataRow("摘要") = s. replace("_",""). replace("/",""). replace("(",""). replace(")",""). replace("\\",""). replace(" ","")
end if


空值时处理字符串会报错，必须判断！
--  作者：JN_LC
--  发布时间：2020/4/25 12:57:00
--  
应该是更新太频繁了。参考如下：
dim s as string
s=“内容”
s=s.replace("_","").replace("）","").replace("(","").replace(" 
","")
e.DataRow("摘要")=s
--  作者：zhuxinhui
--  发布时间：2020/4/25 17:46:00
--  
回复：（zhuxinhui）这段代码不知出了什么问题  发帖心情 Post By：2020/4/25 12:38:00 [只看该作者]

e.DataRow("摘要") = "购"& e.DataRow("简称") & e.DataRow("货物名称")& e.DataRow("规格")& "计" & e.DataRow("数量") & e.DataRow("单位")
e.DataRow("摘要")=e.DataRow("摘要").replace("_","")
e.DataRow("摘要")=e.DataRow("摘要").replace("/","")
e.DataRow("摘要")=e.DataRow("摘要").replace("(","")
e.DataRow("摘要")=e.DataRow("摘要").replace(")","")
e.DataRow("摘要")=e.DataRow("摘要").replace("\\","")
e.DataRow("摘要")=e.DataRow("摘要").replace(" ","")

不要红色这部分  会不会重启项目


不要就不会，我现在就 是把它注释了
--  作者：zhuxinhui
--  发布时间：2020/4/25 17:47:00
--  
 发帖心情 Post By：2020/4/25 12:56:00 [只看该作者]

Dim s as String = e.DataRow("摘要")
if s > ""
     e.DataRow("摘要") = s. replace("_",""). replace("/",""). replace("(",""). replace(")",""). replace("\\",""). replace(" ","")
end if


空值时处理字符串会报错，必须判断！
加入去后重置列还是一样退出来了
--  作者：程兴刚
--  发布时间：2020/4/25 20:15:00
--  
if e.DataRow.isnull("摘要") = false
     Dim s as String = e.DataRow("摘要")
     e.DataRow("摘要") = s. replace("_",""). replace("/",""). replace("(",""). replace(")",""). replace("\\",""). replace(" ","")
end if
--  作者：有点蓝
--  发布时间：2020/4/26 10:09:00
--  
另外再看看：http://www.foxtable.com/webhelp/topics/1522.htm