Question

我有一个错误问题，它显示我在这部分代码中使用长数据类型的问题：

If Not filename Then
            Call Form15.Show()
            TextBox1.Clear()

这里是完整代码：

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim filename As String
        Dim regCis = TextBox1.Text
        filename = TextBox1.Text
        Dim zakazCis As Double
        Dim found As Boolean = False
        found = True

        If (Double.TryParse(TextBox2.Text, zakazCis)) Then
            zakazCis = TextBox2.Text
        Else
            zakazCis = Nothing
        End If

        Dim basePath As String = "C:\_Montix a.s. - cloud\iMontix\Testy"
        Dim filePath As String = IO.Path.Combine(basePath, filename & ".lbe")

        'Napojeni tabulky
        Dim table As DataTable = SdfDataSet.Tables("List1")
        Me.Refresh()

        'Vytvoreni dotazu
        Dim expression As String
        expression = ("[Čísla dílů] = '" & regCis & "'")
        Dim foundRows() As DataRow

        Me.PictureBox1.Invalidate()
        Dim bla = "Label10"



        'vykonani dotazu

        foundRows = table.Select(expression)



        If Not filename Then
            Call Form15.Show()
            TextBox1.Clear()
        Else

            If (foundRows(0)(2) = zakazCis) Then
                'souhlasí regCis a zakcis

                PictureBox1.Image = Image.FromFile("C:\_Montix a.s. - cloud\Visual Studio 2015\Projects\WindowsApplication17\WindowsApplication17\img\tick.png")
                Label10.BackColor = Color.Green
                Me.Controls(bla).Text = "SPRÁVNĚ"
                fileprint.PrintThisfile(filePath)
                Threading.Thread.Sleep(4000)
                SendKeys.Send("{ENTER}")
                TextBox2.Clear()
                TextBox2.Select()
                Button6.Hide()
                PictureBox1.Hide()
                Label10.Hide()



            Else
                'NEsouhlasí regCis a zakcis

                PictureBox1.Image = Image.FromFile("C:\_Montix a.s. - cloud\Visual Studio 2015\Projects\WindowsApplication17\WindowsApplication17\img\cross.png")
                Label10.BackColor = Color.Red
                Form15.Show()
                TextBox2.Clear()
                TextBox2.Select()
            End If
        End If
    End Sub

这是来自form15的代码

Public Class Form15
    Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Hide()
    End Sub
End Class

你知道哪里有问题吗？

Answer 1

您在布尔表达式中使用字符串。我想，你可能错误地添加了字符串而不是布尔值。（'找到'而不是'文件名'）

If Not found Then
        Call Form15.Show()
        TextBox1.Clear()
Else

数据类型long无法转换

1 个答案: