listview为什么不刷新??????????!!!!!!!!!!!

yh1205 2004-08-25 11:01:41
这个程序有个窗体,一个窗体上放了listview控件,另外一个窗体输数据
'''''第一窗体的代码(main)
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
Dim str As String
str = "select * from 用户"
rs.Open str, cn, 1, 3

'显示网格线
ListView1.GridLines = True

ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.Refresh

ListView1.ColumnHeaders.Add , , rs.Fields(0).Name
ListView1.ColumnHeaders.Add , , rs.Fields(1).Name
ListView1.ColumnHeaders.Add , , rs.Fields(2).Name
ListView1.ColumnHeaders.Add , , rs.Fields(3).Name
ListView1.ColumnHeaders.Add , , rs.Fields(4).Name
ListView1.ColumnHeaders.Add , , rs.Fields(5).Name

Dim itm As ListItem
For i = 1 To rs.RecordCount
On Error Resume Next
Set itm = ListView1.ListItems.Add(, , rs.Fields(0).Value)
itm.SubItems(1) = rs.Fields(1).Value
itm.SubItems(2) = rs.Fields(2).Value
itm.SubItems(3) = rs.Fields(3).Value
itm.SubItems(4) = rs.Fields(4).Value
itm.SubItems(5) = rs.Fields(5).Value
rs.MoveNext
Next i
ListView1.Refresh

End Sub

Private Sub Command1_Click()
unload me
input_user.show
End Sub

________________________________________________________________________________

''''''''''第二个窗体(input)

Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
Dim str As String
str = "select * from 用户 where 简称='" & Text1.Text & "'"
rs.Open str, cn, 1, 3

If rs.RecordCount = 0 Then
If Text1.Text = "" Then MsgBox "用户简称不能为空", vbExclamation + vbOKOnly, "提示": Text1.SetFocus: Exit Sub
If Text2.Text = "" Then MsgBox "用户姓名不能为空", vbExclamation + vbOKOnly, "提示": Text2.SetFocus: Exit Sub
If Text5.Text = "" Then MsgBox "用户密码不能为空", vbExclamation + vbOKOnly, "提示": Text5.SetFocus: Exit Sub
If Combo1.Text <> "标准" And Combo1.Text <> "管理" Then MsgBox "权限应为“标准”或“管理”!", vbExclamation + vbOKOnly, "提示": Exit Sub
rs.Close
str = "select * from 用户"
rs.Open str, cn, 1, 3
rs.AddNew

rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Fields(2).Value = Text3.Text
rs.Fields(3).Value = Text4.Text
rs.Fields(4).Value = Text5.Text
rs.Fields(5).Value = Combo1.Text
rs.Update
rs.Close
Unload Me
input_user.Show

Else
MsgBox "简称已存在,请更换", vbCritical + vbOKOnly, "提示"
End If

End Sub


_________________________________________

说明:在调用第二个窗体时,第一个窗体(main)已经unload me,从第二个窗体input返回时再重新main.show,但是很奇怪listview的值没有同步更新,这个为什么呢?):
...全文
183 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
soothsky 2004-08-25
  • 打赏
  • 举报
回复
把刷新listview的代码写成一个函数,在Form_Load()调用然后在每次增加记录时(单击按钮时)调用一次这个过程就可以达到目的了

Private Sub pushlist()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
Dim str As String
str = "select * from 用户"
rs.Open str, cn, 1, 3

'显示网格线
ListView1.GridLines = True

ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.Refresh

ListView1.ColumnHeaders.Add , , rs.Fields(0).Name
ListView1.ColumnHeaders.Add , , rs.Fields(1).Name
ListView1.ColumnHeaders.Add , , rs.Fields(2).Name
ListView1.ColumnHeaders.Add , , rs.Fields(3).Name
ListView1.ColumnHeaders.Add , , rs.Fields(4).Name
ListView1.ColumnHeaders.Add , , rs.Fields(5).Name

Dim itm As ListItem
For i = 1 To rs.RecordCount
On Error Resume Next
Set itm = ListView1.ListItems.Add(, , rs.Fields(0).Value)
itm.SubItems(1) = rs.Fields(1).Value
itm.SubItems(2) = rs.Fields(2).Value
itm.SubItems(3) = rs.Fields(3).Value
itm.SubItems(4) = rs.Fields(4).Value
itm.SubItems(5) = rs.Fields(5).Value
rs.MoveNext
Next i
ListView1.Refresh

end sub
sssss342072 2004-08-25
  • 打赏
  • 举报
回复
我要分HOHO~~~~
rainstormmaster 2004-08-25
  • 打赏
  • 举报
回复
这样显示窗体试试:
dim a as form
set a=new 窗体名
a.show
bluesky23 2004-08-25
  • 打赏
  • 举报
回复
把原来的Form_Load事件中的代码贴到Form_Active 事件中就可以即时刷新了。
LGYAN 2004-08-25
  • 打赏
  • 举报
回复
那当然了,你的第一个窗体(main)的unload ,并没有从内存中销毁

所以再次显示的时候并没有调用main的Load事件
zhangzhijian 2004-08-25
  • 打赏
  • 举报
回复
顶上面各位的!
资源下载链接为: https://pan.quark.cn/s/9e7ef05254f8 【久久在线FLASH系统】是一款专为久久在线网站打造的交互式Flash平台,集成了前台展示与后台管理功能,满足内容发布、管理和用户互动的需求。Flash技术曾广泛应用于网页动画和互动内容,尤其在早期互联网时代,在游戏、广告和多媒体教学等领域发挥了重要作用。该系统的核心包括以下几个关键方面: Flash技术:系统利用Flash创建动态图形、动画和交互内容,依赖Adobe Flash Player运行。其编程语言ActionScript支持面向对象开发,便于实现复杂逻辑和交互效果。 后台管理系统:作为系统的控制中心,后台支持内容上传、编辑、分类、权限设置、用户管理及数据分析,确保内容的有序更新与发布。 产品演示模块:用户可在线预览和体验产品功能,无需下载,通过交互式演示了解产品操作流程和优势。 数据库集成:系统与数据库紧密结合,用于存储Flash文件信息、用户数据及访问记录,实现高效的数据管理与检索。 安全性与优化:系统具备防止非法访问和数据泄露的安全机制,并对Flash内容进行优化,提升加载速度与用户体验。 响应式设计:尽管Flash主要用于桌面端,系统仍考虑多设备兼容性,通过响应式设计适配不同屏幕尺寸,提供一致体验。 API接口:系统支持与其他平台或服务通过API进行数据交互,如社交媒体分享、数据分析等,拓展功能边界。 用户体验:界面设计注重交互性与视觉效果,提升用户满意度和停留时间,增强平台吸引力。 版本控制:系统支持内容版本管理,便于追踪更新历史,方便内容维护与回滚。 性能监控:内置性能监控工具,实时跟踪系统负载与资源使用情况,及时发现并解决问题,保障系统稳定运行。 【久久在线FLASH系统】是一个综合性解决方案,融合了前端展示、后台管理、互动体验和数据分析等功能,体现了当时Web
资源下载链接为: https://pan.quark.cn/s/f989b9092fc5 BP神经网络轴承故障诊断系统是一种基于人工神经网络技术的智能诊断工具,专门用于识别和分析机械设备中轴承的故障情况。该系统的核心是BP神经网络(即反向传播神经网络),它能够模拟人脑的工作方式,通过学习和训练来处理复杂的非线性问题,从而对轴承的健康状态进行精准评估。 BP神经网络的基本结构由输入层、隐藏层和输出层构成。输入层接收来自传感器的信号,如振动数据或声音频率,这些信号反映了轴承的运行状态。隐藏层负责对输入数据进行特征提取和转换,将原始信号转化为更具价值的信息。输出层则输出最终的诊断结果,例如轴承是否正常、轻微磨损或严重损坏等。 在诊断过程中,数据预处理是至关重要的步骤。原始的振动或声学数据通常含有噪声,且不同传感器的数据可能缺乏可比性。因此,需要对这些数据进行滤波、归一化等处理,以提高数据质量。预处理后的数据随后被输入到BP神经网络中。在训练阶段,网络通过反向传播算法调整权重和阈值,使预测结果尽可能接近实际故障类型。这一过程利用了梯度下降法,通过计算误差梯度来更新网络参数,以最小化损失函数(通常是均方误差,用于衡量预测值与真实值之间的差异)。 BP神经网络的性能受到多种因素的影响,包括网络结构(如隐藏层的数量和每层的神经元数量)、学习率以及训练迭代次数等。优化这些参数对于提升诊断精度和速度至关重要。此外,为了验证和提升模型的泛化能力,通常采用交叉验证方法,将数据集分为训练集、验证集和测试集。其中,训练集用于训练网络,验证集用于调整网络参数,测试集则用于评估模型在未知数据上的表现。 总体而言,BP神经网络轴承故障诊断系统凭借其强大的学习和泛化能力,通过对机械设备振动和噪声数据的分析,能够实现对轴承故障的精确识别。该系统有助于提前发现设备故障隐患,减少停机时间,提高生产效率,对工业领域

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧