以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 字符串引用问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117403) |
-- 作者:pzxas -- 发布时间:2018/4/11 23:18:00 -- 字符串引用问题 我想将B列(桩号)里的前5个字符提取到A列(整桩号)中,用DataColChanged事件,但代码有问题,请大神指导;多谢 Dim s1 As String = "桩号" Dim s2 As String = "整桩号" |
-- 作者:有点甜 -- 发布时间:2018/4/12 9:32:00 -- If e.datacol.name = "桩号" If e.datarow("桩号").length >= 3 then e.DataRow("整桩号") = e.datarow("桩号").substring(0, 3) Else e.DataRow("整桩号") = nothing End If End if |
-- 作者:PZXAS -- 发布时间:2018/4/12 22:22:00 -- 谢谢,我修改了下,让整桩号自动判断桩号列小于5个字符时显示“桩号错误” If e.DataCol.name = "桩号" If e.DataRow("桩号") = Nothing Then e.DataRow("整桩号") = Nothing Else If e.DataRow("桩号").length >= 5 Then e.DataRow("整桩号") = e.DataRow("桩号").substring(0, 5) Else e.DataRow("整桩号") = ("桩号错误") \'赋值为空时填Nothing End If End If End If |