If e.DataCol.Name = "主要专业技术工作业绩" Then
Dim yj As String = e.DataRow("主要专业技术工作业绩")
Select Case yj.Length
Case 0 To 540
e.DataRow("业绩1") = yj
Case 541 To 1080
e.DataRow("业绩1") = yj.SubString(0,540)
e.DataRow("业绩2") = yj.SubString(540)
Case 1081 To 1620
Dim first As String = yj.SubString(0,540)
e.DataRow("业绩1") = yj.SubString(0,540)
e.DataRow("业绩2") = yj.SubString(540,1080 - first.Length)
e.DataRow("业绩3") = yj.SubString(1080)
Case Else
MessageBox.Show("个人工作业绩过长,请修改或者另单独附页!")
End Select
End If
加好友 
发短信
Post By：2017/8/14 22:16:00 [显示全部帖子]
