在选题系统里,一个题目的人数选满 后，怎样让他仍然在 这个页面有显示啊....但别人进来时 能看到有这个题目但不能选择...........哪位高手帮帮忙啊....急啊......愿意的++偶QQ:277563908....谢谢....帮偶看看到底怎么弄的......[em4][em4][em4]


显示是用DataGrid　做的


提交按钮代码：
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If titlename = "" Then
            Response.Write("<script>alert('请选择论文题目！')</script>")
        Else
            Dim ds11 As DataSet = New DataSet
            ada = New OleDb.OleDbDataAdapter("select * from infos where id='" & Session("id") & "'", conn)
            ada.Fill(ds11, "infos")
            Dim ds3 As DataSet = New DataSet
            ada = New OleDb.OleDbDataAdapter("select * from st where id=" & b & "", conn)
            ada.Fill(ds3, "st")
            Dim ds5 As DataSet = New DataSet
            ada = New OleDb.OleDbDataAdapter("select * from st where titlename='" & ds3.Tables("st").Rows(0).Item("titlename") & "' and yynn='1'", conn)
            ada.Fill(ds5, "st")
            If ds11.Tables("infos").Rows.Count > 0 Then
                Response.Write("<script>alert('你已经选过了,不予重新选择！')</script>")
            ElseIf ds5.Tables("st").Rows.Count > 0 Then
                Response.Write("<script>alert('该题目已被选择，请选择其他题目！')</script>")
            Else
                a = ds3.Tables("st").Rows(0).Item("rs")
                a = a - 1
                If a < 0 Then
                    Response.Write("<script>alert('人数已满，你选择其他题目！')</script>")
                Else
                    Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
                    Dim str As String


                    str = "insert into infos(id,inames,iclass,titlename,teacher) values('" & Session("id") & "','" & Session("names") & "','" & Session("class") & "','" & titlename & "','" & teacher & "')"
                    cmd.Connection = conn
                    cmd.Connection.Open()

                    cmd.CommandText = str
                    cmd.ExecuteNonQuery()
                    cmd.Connection.Close()
                    str = "update st set rs='" & a & "' where teacher='" & ds3.Tables("st").Rows(0).Item("teacher") & "'"
                    cmd.Connection = conn
                    cmd.Connection.Open()
                    cmd.CommandText = str
                    cmd.ExecuteNonQuery()
                    cmd.Connection.Close()
                    str = "update st set yynn='1' where titlename='" & ds3.Tables("st").Rows(0).Item("titlename") & "'"
                    cmd.Connection = conn
                    cmd.Connection.Open()
                    cmd.CommandText = str
                    cmd.ExecuteNonQuery()
                    cmd.Connection.Close()
                    Response.Write("<script>alert('操作成功，请退出！')</script>")

                End If
            End If
        End If
    End Sub