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(541,1080)
Case 1081 To 1620
e.DataRow("业绩1") = yj.SubString(0,540)
e.DataRow("业绩2") = yj.SubString(541,1080)
e.DataRow("业绩3") = yj.SubString(1081,1620)
Case 1621 To 10000
MessageBox.Show("个人工作业绩过长,请修改或者另单独附页!")
End Select
End If
这哪里出问题了，报错！
加好友 
发短信
Post By：2017/8/14 22:03:00 [显示全部帖子]
