'根据当前任务的任务ID(Vars("任务输入_任务ID")), 找到当前记录, 并指向该记录
Dim dr As DataRow
dr = DataTables("任务表").Find( "任务ID = '" & Vars("任务输入_任务ID") & "'")
'MessageBox.Show("dr(ID)=" & dr("ID"), "断点01")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("任务表").FindRow(dr)
If wz >= 0 Then
Tables("任务表").Position = wz
End If
End If
'MessageBox.Show("dr(ID)=" & dr("ID"), "断点02")
'MessageBox.Show("Tables(任务表).Current(ID)=" & Tables("任务表").Current("ID"), "断点02")
'根据模板文件形成任务单
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") '定义显示窗口
Dim tm As String = ProjectPath & "Attachments\TaskSchedule_Begin.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\TaskSchedule_Begin.docx" '指定目标文件
Dim wrt As New WordReport(Tables("任务表"), tm, fl) '定义一个WordReport
'形成任务下发要求
Dim ExecProcedure As String = "" '定义执行过程字符串
Dim count2 As Integer = 0 '定义计数器, 任务表.任务子表的前2条记录, 不放到执行过程中
For Each r As Row In Tables("任务表.任务子表").rows '逐行生成执行过程:日期+执行过程
'MessageBox.Show("count2=" & count2 & ", r(执行过程)=" & r("执行过程") )
If count2 = 1 Then '从第三行开始形成, 即 count >= 2
'ExecProcedure = ExecProcedure & Format(r("时间"), "yyyy-MM-dd") & ": " & r("执行过程") & VbCrLf '逐行形成, 后面加回车换行符
ExecProcedure = Format(r("时间"), "yyyy年MM月dd日") & ": " & chr(13) & r("执行过程") & chr(10) '用第二行形成, 后面加回车换行符
ExecProcedure = ExecProcedure.Replace(chr(13) & chr(10) , chr(13)) '将 1 个 回车换行符, 处理为回车符
ExecProcedure = ExecProcedure.Replace(chr(13) , chr(13) & " ") '这样处理后, 不管是日期行, 还是普通行, 都缩进 4 个空格, 因此, 需要把日期行缩进的四个空格删除掉
ExecProcedure = ExecProcedure.Replace(chr(13) , chr(13) & chr(10)) '将 1 个 回车符, 处理为回车换行符
Exit For
End If
count2 = count2 + 1
' wrt.BuildOne(r)
Next
'MessageBox.Show("ExecProcedur=" & ExecProcedure)
wrt.Replace("[执行过程任务下发]",ExecProcedure) '显示第二条记录, 第一条要包含任务下发说明.
wrt.Build() '形成文件
wrt.Quit() '退出形成过程
wbr.AddRess = fl '在 WebBrowser1 中, 显示形成的WORD文件
加好友 
发短信
Post By：2016/6/3 10:45:00 [只看该作者]
此主题相关图片如下：文件已经被其他文件打开.jpg