VB.NET的 把重点的语句注释下就行了

来源：百度知道 编辑：UC知道 时间：2024/06/21 14:28:49
(1)Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim schclass As String = Trim(txtClass.Text)
Dim selestr As String
If schclass <> "" Then
selestr = "班级='" & schclass & "'"
Else
MsgBox("请输入班级名称", 64, "提示") ‘ 显示保存成功提示信息
End If
Dim dvresult As DataView = DataSet11.学生成绩.DefaultView
dvresult.Sort = "学号"
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
DataGrid1.DataSource = dvresult
End Sub

(2)2. 程序代码如下：
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("<script language=vbscript>alert""用户名或密码不能为空！"&q

'''两段程序就是利用.net的连接对象的功能来完成登录的实例
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按钮触发的函数
Dim schclass As String = Trim(txtClass.Text) ‘将txtClass里文本赋值给变量schclass
Dim selestr As String
’提示用户txtClass文本框不能为空
If schclass <> "" Then
selestr = "班级='" & schclass & "'"
Else
MsgBox("请输入班级名称", 64, "提示") ‘ 显示保存成功提示信息
End If
‘创建一个DataView对象，即将数据集DataSet11里的学生成绩表的DefaultView实例化
Dim dvresult As DataView = DataSet11.学生成绩.DefaultView
’按学号字段排序
dvresult.Sort = "学号"
‘按刚才txtClass里输入的班级查询
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
’然后将筛选的结果输入到datagrid上
DataGrid1.DataSource = dvresult
End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.