主题：如何将数据截短？

请问如何将一列数据截短，如当前数据为2044-1-170，想让其成为2044-1，请问如何实现？

命令窗口执行一次：

 

for each  dr as datarow in datatables("xxx").Datarows

    dim s as string = dr("列")

     if s.length > 6 then

          dr("列")  = s.subString(0,6)

     end if

Next