Dim fld As String '选择的保存目录路径
Dim dlg As New FolderBrowserDialog '打开目录对话框
dlg.SelectedPath = GetConfigValue("savefolder",ProjectPath & "Reports\") '读取以前选择目录记录,
If dlg.ShowDialog = DialogResult.Ok Then
fld =dlg.SelectedPath
SaveConfigValue("savefolder", dlg.SelectedPath) '保存此次选择
End If
'生成报告
Dim tb As Table=Tables("检测报告_Table1")
'生成单位报告
If tb.Current IsNot Nothing Then
Dim cr As Row=tb.Current
Dim tm As String = ProjectPath & "Attachments\起重机检验报告模板.doc" '指定模板文件
Dim fl As String = fld & "\" & cr("InwordNo") & "检测报告.doc" '指定目标文件,含牌照号或自编号
If FileSys.FileExists(fl) Then
Dim Result As DialogResult
Result = Messagebox.Show("文件已经存在!是否替换","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
FileSys.DeleteFile(fl,2,2) '则彻底删除之
Else
Return 0
End If
End If
Dim wrt As New WordReport(tb,tm,fl) '定义一个WordReport
wrt.BuildOne(cr)
wrt.Quit ‘这个应该写在哪里？
wrt.Show() '显示报表
End If
有关调用实时(JIT)调试而不是此对话框的详细信息，
请参见此消息的结尾。
************** 异常文本 **************
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.NullReferenceException: 未将对象引用设置到对象的实例。
在 Foxtable.WordReport.Show()
在 FunctionTopsc.foxtops_Menu(Object sender, Object fftt)
--- 内部异常堆栈跟踪的结尾 ---
在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)
在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)
在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
在 System.Reflection.MethodBase.Invoke(Object obj, Object[] parameters)
在 Foxtops.FunctionsExecute.ghlMsu5k3mAkZCYQ0dM(Object , Object , Object )
在 Foxtops.FunctionsExecute.Execute(String methonname, Object[] ob)
在 Foxtops.Wind.NOftbNR1BI3ddKgT0Ly(Object , Object )
在 Foxtops.Wind.Jn43kCxX3W(Object , EventArgs )
在 System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
在 System.Windows.Forms.ToolStripButton.OnClick(EventArgs e)
在 System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
在 System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
在 System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
在 System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
在 System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
在 System.Windows.Forms.Control.WndProc(Message& m)
在 System.Windows.Forms.ScrollableControl.WndProc(Message& m)
在 System.Windows.Forms.ToolStrip.WndProc(Message& m)
在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
。
[此贴子已经被作者于2022/9/4 21:09:43编辑过]
加好友 
发短信
Post By：2022/9/4 21:07:00 [只看该作者]
此主题相关图片如下：360截图18141222106141138.png