[求助]用试用版编写的程序，过一段时间就不运行了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求教：安装试用版一个月左右，编写了一些小程序，开始运行都是正常的，但是过几天之后，程序就不运行了。情况如下：

1、为了知道是什么原因，就在代码最后加了个提示窗口“运行完毕！”。然后点击运行按钮，结果直接就弹出提示窗口“运行完毕！”，中间的代码实际没有运行。

2、随后，我就把主程序窗口导出，新建一个项目导入它，结果在新项目中能运行。但把其他辅助程序完善好，一开始也正常，但过几天又出现上述情况了。

3、上述情况反复出现多次，不知道是什么原因，请指教！

代码是自己写的吗？

中间的代码不运行，肯定是设置了运行的条件，你可以调试分析一下：

http://www.foxtable.com/webhelp/scr/1485.htm

我把代码分成6段，用MessageBox.Show()来显示运行部位。

程序运行显示到MessageBox.Show(3)后，就直接显示MessageBox.Show(7)，结束了程序。

从“If dr IsNot Nothing”往后没有再运行，但也没有出现错误提示。是不是IsNot Nothing...

请专家指教！代码如下：

'生成word报表:

Dim clbx1 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim clbx2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")

For Each j As String In clbx2.CheckedIndices

Dim tm As String = ProjectPath & "模板文件\" & clbx2.Items(j) '指定模板文件

For Each i As Integer In clbx1.CheckedIndices

Dim fl As String = ProjectPath & "成品文件\" & clbx1.items(i) & clbx2.Items(j) '指定目标文件

MessageBox.Show(1)

'文件已经存在,是否覆盖重新填写

If FileSys.FileExists(fl) Then

If MessageBox.Show(fl & "文件已经存在,是否覆盖重新填写?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then

Continue For

End If

Dim nm As String = CurrentTable.Name

Dim dr As DataRow = DataTables(nm).Find("名称 = '" & clbx1.items(i) & "'")

--------------------------------------以下代码不运行

'写入模板

If dr IsNot Nothing

Dim wrt As New WordReport(Tables(nm),tm,fl) '定义一个WordReport

wrt.BuildOne(dr)

wrt.quit

End If

[此贴子已经被作者于2016/9/4 20:31:29编辑过]

If dr IsNot Nothing

Dim wrt As New WordReport(Tables(nm),tm,fl) '定义一个WordReport

wrt.BuildOne(dr)

wrt.quit

else

messagebox.show("没有符合条件的行，所以不运行")

End If

谢谢“有点酸”朋友，但实际上是有符合条件的行，程序没有判断出来。

现在的情况是如果新建一个项目，导入上述代码，可以正常运行，但运行几次之后，代码中间的部分就不运行了，等于没有生成word报表。也不提示出错信息。

弹出看看条件,查询表是否有符合条件的行，注意数据是否有前后空格

Dim nm As String = CurrentTable.Name

msgbox("名称 = '" & clbx1.items(i) & "'")

Dim dr As DataRow = DataTables(nm).Find("名称 = '" & clbx1.items(i) & "'")

弹出符合条件的行了，但没有往模板中写数据，就结束了。也不提示出错信息。

如果数据没有加载，试试

Dim dr As DataRow = DataTables(nm).SQLFind("名称 = '" & clbx1.items(i) & "'")

加上SQL也不行，我上传附件你看看!

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:开发.rar

数据有问题，到命令窗口执行看看就知道了

For Each r As Row In Tables("表A").Rows

Output.Show("|" & r("名称") & "|长度" & r("名称").length)

主题：[求助]用试用版编写的程序，过一段时间就不运行了