Dim ls As List(Of String()) = DataTables("年度重点工作").GetValues("主项编号|主项|重点工作内容|责任领导|责任单位|配合单位|完成时限|进展情况", Tables("年度重点工作").Filter,"序号")
For i As Integer = 0 To ls.Count - 1
Dim s() As String = ls(i)
Dim flag As String = vbcrlf & ""
If s(0) = "1" Then