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