保存文件时，提示运行错误，如何解决？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 保存文件时，提示运行错误，如何解决？

下一主题 >> << 上一主题

共有2643人关注过本帖平板打印复制链接主题：保存文件时，提示运行错误，如何解决？

帅哥哟，离线，有人找我吗？

hbfnmxb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：538 积分：5975 威望：0 精华：0 注册：2008/9/7 20:15:00

保存文件时，提示运行错误，如何解决？ 发帖心情

发帖心情

Post By：2020/12/24 8:32:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：

详细错误信息：

定义了过多字段。

下面是按钮代码：是不是因为这个按钮代码的原因？老师帮忙给看看（应该是28个）

e.Form.Controls("Label1").Text = "正在统计平均分及最低分排名,请稍后..."

Application.DoEvents()

Dim timestart,timeend As Date

timestart=Date.now

Dim dt1 As DataTable = DataTables("专业录取线")

Dim dt2 As DataTable = DataTables("一分一档")

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物理系列") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物理组总_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物理系列") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物理组总_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化生") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化生_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化生") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化生_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化地_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化地_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物化政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物化政_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物生地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物生地_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物生地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物生地_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物生政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物生政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物生政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物生政_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物地政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物地政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("物地政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("物地政_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("历史系列") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("历史组总_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("历史系列") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("历史组总_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化生") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化生_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化生") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化生_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化地_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化地_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史化政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史化政_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史生地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史生地_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史生地") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史生地_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史生政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史生政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史生政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史生政_低分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史地政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("平均分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史地政_均分排名") = fdr("全省排名")

End If

Next

For Each dr As DataRow In dt1.Select("")

Dim filter As String = "选科系列 = '" & dr("史地政") & "' and 录取年度 = '" & dr("录取年度") & "' and 最低分 = '" & dr("最低分") & "'"

Dim fdr = dt2.find(filter)

If fdr IsNot Nothing Then

dr("史地政_低分排名") = fdr("全省排名")

End If

Next

e.Form.Controls("Label1").Text = "平均分及最低分排名统计完成!"

timeend=Date.now

e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"

Messagebox.Show("项目完毕,请继续!")

窗口按钮可以运行，就是不能保存文件！保存文件的时候提示这个错误！！

[此贴子已经被作者于2020/12/24 8:33:04编辑过]

回到顶部

下一主题 >> << 上一主题

总数 12 1 2 下一页

RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询