命令窗口执行一次：
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
加好友 
发短信
Post By：2014/1/13 12:52:00 [显示全部帖子]
