我想将 I 制作为文本框并获取数据以填充表格 lab.work vb.net

Question

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
    load_analyzes_details_cbc()

    Dim salesId, analyzess_id As Integer
    Dim rresult As Integer


    Dim cmdInsert As New SqlCommand()
    Dim cmd As New SqlCommand("Select *from analyzes_details where analyzess_id='1'", connSQLServer)
    connSQLServer.Open()
    Dim da As New SqlDataAdapter(cmd)
    da.Fill(dt_analyzes_details_cbc)
    For Each row In dt_analyzes_details_cbc.Rows

        salesId = Convert.ToInt32(row("details_id").ToString())
        analyzess_id = Convert.ToInt32(row("analyzess_id").ToString())
        For i As Integer = 0 To TextBox - 1
            rresult = Convert.ToInt32(Val(i).ToString())
            cmdInsert.CommandText = "Insert into lab_work(sales_id,sub_id,analyzesss_id,result) values(" & Label1.Text & "," & salesId & "," & analyzess_id & "," & rresult & ")"
            cmdInsert.Connection = connSQLServer
            cmdInsert.ExecuteNonQuery()
        Next
    Next
    'Next
    cmd.Dispose()
    connSQLServer.Close()
    load_lab_work()
End Sub

Answer 1

请检查

您的代码。

cmdInsert.CommandText = "Insert into lab_work(sales_id,sub_id,analyzesss_id,result) values(" & Label1.Text & "," & salesId & "," & analyzess_id & "," & rresult & ")"

文本框 ID 中缺少".text"

您的代码将是

cmdInsert.CommandText = "Insert into lab_work(sales_id,sub_id,analyzesss_id,result) values(" & Label1.Text & "," & salesId.Text & "," & analyzess_id.Text & "," & rresult.Text & ")"