Question

我在vb.net上的表单上有两个text boxes，其中两个buttons（一个按钮添加，另一个按关闭）

两个文本框文本都是整数。

当用户在文本框中输入数据时，单击关闭它会填充数组。到目前为止它的工作正常。

这是我的代码部分：

Dim sundp As Object(,) = New Object(25, 1) {}

For l1 As Integer = 0 To 25

            sundp(l1, 0) = frm1.TextBox1.Text
            sundp(l1, 1) = frm1.TextBox2.Text
Next

当添加按钮时，如果用户点击添加按钮，它应该从文本框添加文本作为数组的第1项并清除内容并准备用户输入作为数组的第2项，依此类推。我怎么能这样做？。

Answer 1

到目前为止的好尝试。但是，你使用的是错误的锤子。循环是错误的构造，因为您可以中断并等待用户输入。这看起来像Winforms，它使用事件驱动模型。

这样的事情应该有效：

＆＃39;表单级变量

Private sundp As Object(,) = New Object(25, 1) {}
Private sundpIndex As Int32 = 0

＆＃39;按钮点击处理程序：

sundp(sundpIndex, 0) = frm1.TextBox1.Text
sundp(sundpIndex, 1) = frm1.TextBox2.Text
frm1.TextBox1.Text = String.Empty
frm1.TextBox2.Text = String.Empty
sundpIndex += 1

If 24 <= sundpIndex Then
  ' you've reached your 25 element maximum, do something appropriate.
End If

Answer 2

使用sql表存储文本框的值，而不是数组。因为无论何时单击该按钮，数组都将被清除，因为它仅适用于运行时。

sub btn_click()
{
dim cmd as new sqlcommand("insert into tbl values('" & frm1.TextBox1.Text & "','" & frm1.TextBox2.Text & "')",conn)
cmd.ExecuteNonQuery()
frm1.TextBox1.Text=""
frm1.TextBox2.Text=""
}

如何使用两个文本框中的用户输入填充2D数组

2 个答案: