以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 截取字符代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159394) |
-- 作者:爱相随 -- 发布时间:2020/12/24 22:37:00 -- 截取字符代码 老师,下面的代码意思是:第一列是原字符串,第三列是截取字符的个数,如果是正数,表示从左边截取相应个数的字符串,如果是负数,则表示从右边截取相应个数的字符串。第二列是返回的字符串。但是,结果是不对,请问错在哪里呢?? Dim s As String = e.DataRow("第一列") Dim V As Short = e.DataRow("第三列") If e.DataCol.Name = "第一列" Then If e.DataRow.IsNull("第一列") OrElse e.DataRow.IsNull("第三列") Then e.DataRow("第二列") = Nothing Else e.DataRow("第二列") = (s.SubString(s.Length (V))) End If End If
|
-- 作者:有点蓝 -- 发布时间:2020/12/24 22:49:00 -- If e.DataCol.Name = "第一列" Then Dim s As String = e.DataRow("第一列") Dim V As Short = e.DataRow("第三列") If e.DataRow.IsNull("第一列") OrElse e.DataRow.IsNull("第三列") Then e.DataRow("第二列") = Nothing Else if v > 0 then e.DataRow("第二列") = left(s,v) else e.DataRow("第二列") = right(s,v*-1) end if End If End If
|
-- 作者:爱相随 -- 发布时间:2020/12/26 10:00:00 -- 谢谢蓝老师!! |
-- 作者:hbfnmxb -- 发布时间:2022/3/31 21:20:00 -- 学习收藏,非常实用的代码 |