簡體   English   中英

如何檢查是否使用vb.Net填充了所有GridView文本框

[英]How to check if all GridView Textboxes are filled using vb.Net

因此,我的文本框位於gridview的模板字段中。 我希望頁面加載6個固定的文本框。 我想通了那部分。 如果所有6個文本框都被填滿,那么我想在選擇下拉值時添加新行。 然后,下拉值將在新行出現時進行填充。 我該怎么做? 我知道基本的設置,但是我只需要一些代碼來檢查所有文本框是否都已填充。

For Each row As GridViewRow In gvReq.Rows

    Dim Index As Integer = row.RowIndex
    Dim ReqText As TextBox = CType(gvReq.Rows(Index).FindControl("txtReqText"), TextBox)
    Dim chkReq As CheckBox = CType(gvReq.Rows(Index).FindControl("chkReq"), CheckBox)
    If ReqText.Text = "" Then
        ReqText.Text = reader("RequireExceptText").ToString
        chkReq.Checked = True
        If Regex.IsMatch(ReqText.Text, "_") Then
            Dim message As String = "The selected Requirement contains some blanks to fill."
            Dim sb As New System.Text.StringBuilder()
            sb.Append("<script type = 'text/javascript'>")
            sb.Append("window.onload=function(){")
            sb.Append("alert('")
            sb.Append(message)
            sb.Append("')};")
            sb.Append("</script>")
            ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())
            ReqText.Focus()
        End If
        Exit For

    Else
        Dim dtCurrentTable As DataTable = DirectCast(ViewState("CurrentTable"), DataTable)
        For Each row2 As GridViewRow In gvReq.Rows
            If dtCurrentTable.Rows.Count >= 6 Then
                If ReqText.Text <> "" Then
                    AddNewRow()
                End If
            End If
            Exit For
        Next

    End If

Next

我找到了解決它的方法。 很棒!

 Dim LastReqText As TextBox = DirectCast(gvReq.Rows(gvReq.Rows.Count - 1).FindControl("txtReqText"), TextBox)
        If LastReqText.Text <> "" Then
            AddNewRow()

        End If

        For i As Integer = 0 To gvReq.Rows.Count - 1

            Dim ReqText As TextBox = DirectCast(gvReq.Rows(i).FindControl("txtReqText"), TextBox)
            Dim chkReq As CheckBox = CType(gvReq.Rows(i).FindControl("chkReq"), CheckBox)

            If ReqText.Text = "" Then
                ReqText.Text = reader("RequireExceptText").ToString
                chkReq.Checked = True
                If Regex.IsMatch(ReqText.Text, "_") Then
                    Dim message As String = "The selected Requirement contains some blanks to fill."
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("<script type = 'text/javascript'>")
                    sb.Append("window.onload=function(){")
                    sb.Append("alert('")
                    sb.Append(message)
                    sb.Append("')};")
                    sb.Append("</script>")
                    ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())
                    ReqText.Focus()
                End If
                Exit For

            End If

        Next

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM