КАК РЕШИТЬ В строке 2 VB.NET, использующей sqldatabase, нет строки

Question

1. Private Sub Charges ()

     Dim Query As String
               Query = "Select * from Charges where DOctype='" & comboBoxTranType.Text & "'"
               Dim cmd As New SqlCommand(Query, con)
               con.Open()
               Dim dataAdapter As New SqlDataAdapter(Query, con)
               Dim dt As New DataTable
               dataAdapter.Fill(dt)
               dataAdapter.Dispose()
       If dt.Rows.Count > 0 Then
                 LabelV001.Text = dt.Rows(0).Item("Head").ToString()
                   LabelV002.Text = dt.Rows(1).Item("Head").ToString()
                   LabelV003.Text = dt.Rows(2).Item("Head").ToString()
               End If
   
   
    If dt.Rows.Count > 0 Then
   
                       LabelFIELD1.Text = dt.Rows(0).Item("Equation").ToString()
                       LabelFIELD2.Text = dt.Rows(1).Item("Equation").ToString()
                       LabelFIELD3.Text = dt.Rows(2).Item("Equation").ToString()
   
                   End If
   
                   con.Close()
   
   
   
               End Sub
   

   SIR с вашей помощьюне может быть рассчитано, пожалуйста, помогите мне,

Answer 1

Не знаю, почему они так быстро закрыли ваш новый вопрос ... Я строил для него ответ.

1. Нажмите на Project -> Add Reference
2. Switchк опции COM
3. Выберите запись «Microsoft Script Control 1.0» и нажмите «ОК».

Теперь вы можете использовать код, подобный приведенному ниже, создавая код для textCharges1 -> V001 через textCharges25-> V025:

Public Class Form1

    Private SC As New MSScriptControl.ScriptControl

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SC.Language = "VBScript"

        Dim ctl As Control
        Dim ctlName, functionBody As String
        functionBody = "Function {0}()" & vbCrLf & vbTab & "{0} = CDbl({1}.Text)" & vbCrLf & "End Function"
        For i As Integer = 1 To 25
            ctlName = "textCharges" & i
            ctl = Me.Controls.Find(ctlName, True).FirstOrDefault
            If Not IsNothing(ctl) Then
                SC.AddObject(ctlName, ctl, True)
                SC.AddCode(String.Format(functionBody, "V" & i.ToString("000"), ctlName))
            End If
        Next

        LABELFIELD2.Text = "V001*V002/100"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim result = SC.Eval(LABELFIELD2.Text)
            lblResult.Text = result
        Catch ex As Exception
            lblResult.Text = "{Error}"
        End Try
    End Sub

End Class

Рабочий пример: