当在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