在数据网格视图中添加行和列 [英] Adding row and column in a datagrid view

问题描述

请有人帮帮我。我有表格，我有tw0文本框，数据网格视图和一个按钮我的第一个文本框名称是txtrow，我的第二个文本框名称是txtcolumn。当我在文本框中输入一个值（行的编号和列的编号）时，按钮名称为下一步，然后在datagridview中生成输入的行和列编号。

i我提到我写的代码。从这个代码行生成但是为了生成列我很困惑.......

dim row as integer
每行
= 0到val（txtrow.text）

me.datagridviw.rows.add（）

next

解决方案

请记住，如果没有列，则无法在datagrid中添加行。首先添加列然后添加行。

 私有  Sub  Button1_Click（ ByVal  sender  As  System。对象， ByVal  e  As  System.EventArgs）句柄 Button1.Click 
 如果 我 .txtcolumn.Text.Trim =   或  Char  .IsDigit（ Me  .txtcolumn.Text）=  False  然后 
 MsgBox（ 请输入任何数字！）
 退出  Sub  
  ElseIf  我 .txtcolumn.Text =   0 然后 
 MsgBox（ 请输入1到5之间的任何数字）
 退出  Sub  
 结束 如果 
 
 如果 我 .txtrow.Text.Trim =   或 字符 .IsDigit（ Me  .txtrow.Text）=  False  然后 
 MsgBox（ < span class =code-string>请输入任何数字！）
 退出  Sub  
  ElseIf   Me  .txtrow.Text =   0 然后 
 MsgBox（ 请输入1到5之间的任何数字）
 退出  Sub  
 结束 如果 
 
  Dim  oCol，oRow  as  整数 
 
  （oCol<> Val（ Me  .txtcolumn.Text））
  Me  .DataGrid1.Columns.Add（< span class =code-string>  Col& oCol，oCol）
 oCol = oCol +  1  
 结束   
 oCol = < span class =code-digit> 0  
 
 如果 我 .DataGrid1.Columns.Count>  0  然后 
  （ oRow<> Val（ Me  .txtrow.Text））
  Me  .DataGrid1。 Rows.Add（）
 oRow = oRow +  1  
 结束  while  
 结束 如果 
 oRow =  0  
 
 结束 子 

Please Some help me.I have form in that form i have tw0 textbox,datagrid view and one button my first text box name is "txtrow" and my second textbox name is "txtcolumn." and button name is "Next" when i am enter a value in the text box(no. of row and no. of column) then inputted number of row and column will be generated generated in datagridview.
i am mention my code which i am written.from this code row is generated but for column generation i am confused.......
dim row as integer
for each row = 0 to val(txtrow.text)
me.datagridviw.rows.add()
next

解决方案

Please remember without columns you can not add rows in datagrid. So first add columns then add row.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Me.txtcolumn.Text.Trim = "" Or Char.IsDigit(Me.txtcolumn.Text) = False Then
        MsgBox("Pls enter any digit!")
        Exit Sub
    ElseIf Me.txtcolumn.Text = "0" Then
        MsgBox("Pls enter any digit from 1 to 5")
        Exit Sub
    End If

    If Me.txtrow.Text.Trim = "" Or Char.IsDigit(Me.txtrow.Text) = False Then
        MsgBox("Pls enter any digit!")
        Exit Sub
    ElseIf Me.txtrow.Text = "0" Then
        MsgBox("Pls enter any digit from 1 to 5")
        Exit Sub
    End If

    Dim oCol, oRow As Integer

    While (oCol <> Val(Me.txtcolumn.Text))
        Me.DataGrid1.Columns.Add("Col" & oCol, oCol)
        oCol = oCol + 1
    End While
    oCol = 0

    If Me.DataGrid1.Columns.Count > 0 Then
        While (oRow <> Val(Me.txtrow.Text))
            Me.DataGrid1.Rows.Add()
            oRow = oRow + 1
        End While
    End If
    oRow = 0

End Sub

这篇关于在数据网格视图中添加行和列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！