以文本方式查看主题

-  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
--  
学习收藏，非常实用的代码