- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我知道哪报错，但不会处理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161128)
-- 发布时间：2021/3/7 13:01:00
-- 我知道哪报错，但不会处理
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:小区车辆管理20210307.foxdb |
密码：888888
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2021/3/7 13:04:00
--
还有每次打开窗口管理，关闭时总是重复几次自动再打开窗口。
-- 发布时间：2021/3/7 17:32:00
--
是不是在缴费情况表的分类列双击临时停车时出错？我试了一下没有问题，窗口表能够打开。请将项目文件夹中的Bin文件夹删除，再重新运行该项目试试！
-- 发布时间：2021/3/7 17:36:00
--
这软件问题还真多！
1、有时双击缴费情况表的临时停车行，弹出窗口后关闭，保存项目后关闭软件，重新打开后发现自动添加了刚才打开过的单的数据，这现象发生过很多次。
2、一楼报错的提示有时双击缴费情况表的临时停车行会弹出，试过很多次。
以上两种情况我刚重启电脑再打开没发生了。
3、每天每次打开窗口管理，打开某个窗口后关闭，关闭窗口管理选项窗口时总是自动再打开之前选择打开的窗口，有时重复几次。
4、昨天在菜单设计-快捷菜单中添加的代码早上起来重新打开项目发现不见了，记忆中已保存，但确实没有了！
一楼提示指向的没有找到临时收费录入_Table1窗口，我检查代码，感不觉没问题啊，问题到底出在哪？
\'双击缴费情况表任意行,自动弹出当前单据:
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") = False Then
Forms("临时收费录入").Open()
DataTables("临时收费录入_Table1").DataRows.Clear
Forms("临时收费录入").Controls("rq").text = e.Row("日期")
Forms("临时收费录入").Controls("dh").text = e.Row("单号")
Forms("临时收费录入").Controls("lry").text = e.Row("录入员")
Forms("临时收费录入").Controls("shr").text = e.Row("审核人")
Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = \'" & Forms("临时收费录入").Controls("dh").text & "\'")
For i As Integer = 0 To dts.count - 1
Dim r As DataRow = DataTables("临时收费录入_Table1").AddNew()
r("车牌号码") = dts(i)("车牌号码")
r("备注") = dts(i)("备注")
r("缴费_临时停放_起计时间") = dts(i)("缴费_临时停放_起计时间")
r("缴费_临时停放_止计时间") = dts(i)("缴费_临时停放_止计时间")
Next
If dts.count < 10 Then
Dim r As DataRow = DataTables("临时收费录入_Table1").AddNew(10 - (dts.count))
End If
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") = False Then
Forms("月租收费").Open()
DataTables("月租收费_Table1").DataRows.Clear
Forms("月租收费").Controls("rq").text = e.Row("日期")
Forms("月租收费").Controls("dh").text = e.Row("单号")
Forms("月租收费").Controls("lry").text = e.Row("录入员")
Forms("月租收费").Controls("shr").text = e.Row("审核人")
Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = \'" & Forms("月租收费").Controls("dh").text & "\'")
For i As Integer = 0 To dts.count - 1
Dim r As DataRow = DataTables("月租收费_Table1").AddNew()
r("车牌号码") = dts(i)("车牌号码")
r("备注") = dts(i)("备注")
r("住址_巷") = dts(i)("住址_巷")
r("住址_号") = dts(i)("住址_号")
r("住址_房") = dts(i)("住址_房")
r("姓名") = dts(i)("姓名")
r("固定电话") = dts(i)("固定电话")
r("手机号码") = dts(i)("手机号码")
r("缴费_月租_起计日期") = dts(i)("缴费_月租_起计日期")
r("缴费_月租_止计日期") = dts(i)("缴费_月租_止计日期")
r("缴费_月租_月租单价") = dts(i)("缴费_月租_月租单价")
Next
If dts.count < 10 Then
Dim r As DataRow = DataTables("月租收费_Table1").AddNew(10 - (dts.count))
End If
End If
[此贴子已经被作者于2021/3/7 19:11:26编辑过]
-- 发布时间：2021/3/7 17:43:00
--
删除Bin文件夹我前几天试过很多次了，问题还是没解决。
此主题相关图片如下：qq图片20210307170020.png
这是自动添加打开过的临时停车单据的截图。
-- 发布时间：2021/3/7 18:00:00
--
此主题相关图片如下：qq图片20210307174916.png
此主题相关图片如下：qq图片20210307174943.png
在选择多个单元格后鼠标右键弹出的快捷菜单行相关中添加的快捷菜单有时要点击菜单设计，确定后才显示，且快速清零没反应，序列填充、重复填充没问题。这是刚才在试自定义添加的菜单功能时弹出的提示。
[此贴子已经被作者于2021/3/7 19:19:37编辑过]
-- 发布时间：2021/3/7 19:28:00
--
哦6楼的问题指向这代码吧？是否这代码造成以上问题？
\'以下代码用于更新快速访问栏中的"撤销"和"重做"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码
\'如果删除了这两个按钮,也应该删除此段代码
Static Undo As RibbonMenu.Button
Static Redo As RibbonMenu.Button
If Undo Is Nothing Then
Undo = QAT.Items("Undo")
Redo = QAT.Items("Redo")
End If
If CurrentTable.CanUndo Then
If Undo.Enabled = False Then Undo.Enabled = True
Else
If Undo.Enabled Then Undo.Enabled = False
End If
If CurrentTable.CanRedo Then
If Redo.Enabled = False Then Redo.Enabled = True
Else
If Redo.Enabled Then Redo.Enabled = False
End If
-- 发布时间：2021/3/7 20:51:00
--
先把主菜单所有事件代码清除掉，然后重新整理问题和项目发上来
-- 发布时间：2021/3/7 21:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:小区车辆管理0307.foxdb |
-- 发布时间：2021/3/7 21:50:00
--
就是因为没改，所以让您改，全部删除这些事件代码
此主题相关图片如下：1.png