当在mysql数据库中找不到任何项目时,如何向下拉列表添加替代项目。

这是我尝试过的

Sub getstudent()
        Try
            Dim val As String = System.Configuration.ConfigurationManager.ConnectionStrings("val").ConnectionString
            Using mycon As New MySqlConnection(val)
                Using ds As New DataTable
                    mycon.Open()
                    Dim SQL As String = "SELECT reg_no, name FROM tbl_students where class='" & Dpclass.SelectedItem.Text & "' and sub_class='" & Dpsub_class.SelectedItem.Text & "' and acad_session='" & acad_session.SelectedItem.Text & "'"
                    Dim myCommand As New MySqlCommand(SQL, mycon)
                    Dim myDA As New MySqlDataAdapter
                    myDA.SelectCommand = myCommand
                    myDA.Fill(ds)
                    mycon.Close()

                    Dpname.DataSource = ds
                    Dpname.DataTextField = "name"
                    Dpname.DataValueField = "reg_no"
                    Dpname.DataBind()
                    If Dpname.DataTextField < 1 Then
                        Dpname.Text = "Nothing Found"
                    End If
                    Dpname.Items.Insert(0, New ListItem("-select-", "0"))
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


我收到错误消息:从字符串“ name”到类型“ Double”的转换无效。

最佳答案

检查您的数据表是否为空,并用另一个值填充它:

If ds.Rows.Count = 0 Then
    Dpname.DataSource = new DataTable()
End If

10-06 13:21
查看更多