我的邮箱：wangzhichao_812@msn.com
不过，把你的工程发到这里，让更多的人帮你看看不更好吗。

[quote]我的邮箱：wangzhichao_812@msn.com
不过，把你的工程发到这里，让更多的人帮你看看不更好吗。[/quote]

邮件发过去了。

因为想像QQ那样联系的话 有问题的话更方便一点说

郁闷  论坛里限制最大1M的附件。。。~

程序是1.26M.。

没想到代码有这么多。
frmModifysinfo窗体上的txtAddress控件把它的MultiLine属性设置为False就可以显示地址了。再把这个窗体代码中下面一句删除：

    If Not IsNumeric(Trim(txtSID.Text)) Then
        MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"
        txtSID.SetFocus
        Exit Sub
   End If
    
 'mrc.Delete  '把这一句删除

谢谢 解决了。  不过不知道怎样能弄到本质上的修改。 因为现在修改是删一条的前提下再修改。。所以修改时学号就一直提示重复 所以学号也要跟着修改  不过问了下其他人 学号一般是固定不能变的了。 所以我索性修改窗体里取消修改学号了。但我就这样删了控件那些。就开始提其他错误了。。删掉哪些代码才能彻底不修改学号。。

还有就是。。可以帮我注释一下吗   不是全部代码都要注释。。有些我还是看得懂。
主要是那些主要功能  这程序修改 添加 删除 查询 应该大致都一样吧。都差不多的话那知道一个窗体的这些功能 那其他窗体的大致上也能了解了。

[quote]没想到代码有这么多。
frmModifysinfo窗体上的txtAddress控件把它的MultiLine属性设置为False就可以显示地址了。再把这个窗体代码中下面一句删除：

    If Not IsNumeric(Trim(txtSID.Text)) Then
        MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"
        txtSID.SetFocus
        Exit Sub
   End If
    
 'mrc.Delete  '把这一句删除

[/quote]
问题解决了~~

 txtSQL = "select * from student_Info where student_ID = '" & Trim(txtSID.Text) & "'"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                加了这段~

好久没过来了，看到那些广告就没有上来的欲望。