以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  截取字符代码  (http://foxtable.net/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
--  
学习收藏,非常实用的代码