| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 684 人关注过本帖
标题:奇特现象:记录集自动赋值了!请问怎么解决?
取消只看楼主 加入收藏
liuvking
Rank: 2
等 级:论坛游民
帖 子:22
专家分:20
注 册:2009-7-22
结帖率:87.5%
收藏
已结贴  问题点数:0 回复次数:0 
奇特现象:记录集自动赋值了!请问怎么解决?
我的一个按钮事件代码为:
Private Sub cmdrefresh_Click()
cmdrefresh.Enabled = False


SQL = "select * from 学生信息表 order by ID"
rs.Close
rs.Open SQL, conn, 3, 3


Set DataGrid1.DataSource = rs


display
sum
Labsit.Caption = "状态:正常"
cmdrefresh.Enabled = True
End Sub

Private Sub display()
Textid.Text = rs("ID")
Textname.Text = rs!姓名 & ""
Textsex.Text = rs!性别 & ""
Textxuehao.Text = rs!学号 & ""
Textsf.Text = rs!身份证号 & ""
Textzy.Text = rs!专业 & ""
Textaddr.Text = rs!住址 & ""
Textyb.Text = rs!邮编 & ""
Textht.Text = rs!合同号 & ""
Textbiye.Text = rs!毕业 & ""
Textfirst.Text = rs!第一次划款 & ""
Textfirsttime.Text = rs!第一次划款时间 & ""
Textsecond.Text = rs!第二次划款 & ""
Textsecondtime.Text = rs!第二次划款时间 & ""
Textthird.Text = rs!第三次划款 & ""
Textthirdtime.Text = rs!第三次划款时间 & ""
Textforth.Text = rs!第四次划款 & ""
Textforthtime.Text = rs!第四次划款时间 & ""
temp = Textid.Text
End Sub

结果发现点击此按钮后,原来没有值的记录却自动添加了3000这个值,需要点击“上个记录”或“下个记录”后才能正常显示,请问怎么回事?
搜索更多相关主题的帖子: 记录 自动 赋值 奇特现象 
2009-12-20 00:19
快速回复:奇特现象:记录集自动赋值了!请问怎么解决?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015488 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved