- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口不能自动关闭 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142878)
-- 发布时间：2019/11/8 5:07:00
-- 下拉窗口不能自动关闭
系统升级到最新版后出现以下问题：
如下图，当前窗口中的cell控件的下拉窗口已经打开
此主题相关图片如下：qq截图20191107173856.png
当我点击另外一个窗口时出现如下图，下拉窗口没有自动关闭此主题相关图片如下：qq截图20191107174006.png
升级前没有此问题，请问什么原因导致？
[此贴子已经被作者于2019/11/8 5:08:46编辑过]
-- 发布时间：2019/11/8 9:49:00
--
点击切换到其它窗口的代码是怎么写的？
-- 发布时间：2019/11/8 14:52:00
--
TopicLinkClick:
If Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售明细表").Current Is Nothing Then
Tables("销售订单").Current.Delete
DataTables("销售订单").save
ElseIf Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售明细表").Current IsNot Nothing Then
MessageBox.show("The current order is not saved and cannot be closed 当前订单尚未保存,不能关闭!","Remind 提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
ElseIf Tables("报价单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("报价明细表").Current Is Nothing Then
Tables("报价单").Current.Delete
DataTables("报价单").save
ElseIf Tables("报价单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("报价明细表").Current IsNot Nothing Then
MessageBox.show("The current order is not saved and cannot be closed 当前订单尚未保存,不能关闭!","Remind 提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Tables("销售订单").Current.Delete
DataTables("销售订单").save
ElseIf Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售明细表").Current IsNot Nothing Then
MessageBox.show("The current order is not saved and cannot be closed 当前订单尚未保存,不能关闭!","Remind 提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
ElseIf Tables("报价单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("报价明细表").Current Is Nothing Then
Tables("报价单").Current.Delete
DataTables("报价单").save
ElseIf Tables("报价单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("报价明细表").Current IsNot Nothing Then
MessageBox.show("The current order is not saved and cannot be closed 当前订单尚未保存,不能关闭!","Remind 提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If Forms.Contains(e.link.name)
Forms(e.link.name).Show
End If
Forms(e.link.name).Show
End If
-- 发布时间：2019/11/8 15:56:00
--
看不出什么问题，做个例子发上来看看
-- 发布时间：2019/11/8 21:14:00
--
[此贴子已经被作者于2019/12/15 21:13:41编辑过]
-- 发布时间：2019/11/8 21:47:00
--
问题已反馈，先保留附件
-- 发布时间：2019/11/9 14:52:00
--
蓝老师，什么时侯有结果呢
-- 发布时间：2019/11/9 15:11:00
--
具体时间我也不清楚，等下个版本发布看看
-- 发布时间：2019/11/12 22:27:00
--
还有个问题是：局域网多用户使用的时候在同样的条件下数据的读写比之前慢很多，希望下个版本能解决
[此贴子已经被作者于2019/11/12 22:27:46编辑过]
-- 发布时间：2019/11/12 22:46:00
--
建议使用SqlServer数据库，access的并发数有限，一般在5~7个并发的时候还可以，再多就阻塞了