无法将ListBox选中值存入变量，获取值显示为System.Data.DataRowView

核心问题原因 #

当ListBox绑定DataTable但未指定ValueMember时，SelectedValue返回的是整个DataRowView对象，而非你需要的日期字段值，所以ToString会显示System.Data.DataRowView。另外你的SQL语句存在注入风险，且日期格式处理可能导致查询匹配失败。

具体修改步骤 #

1. 修正ListBox绑定逻辑（cargarlistboxFuncionFecha方法） #

保留原始日期字段用于查询，同时格式化后用于显示：

Public Sub cargarlistboxFuncionFecha()
    ' 查询原始日期和格式化后的日期，保留原始值用于后续查询
    Dim FechaConsulta As String = "SELECT DISTINCT Funcion_Fecha, FORMAT(Funcion_Fecha,'yy/MM/dd') AS Fecha_Mostrar FROM Funcion WHERE Pelicula_ID = @PeliculaID"
    Dim table As New DataTable
    ' 使用参数化查询避免注入
    Dim adapt As New SqlDataAdapter(FechaConsulta, con.cnn)
    adapt.SelectCommand.Parameters.AddWithValue("@PeliculaID", varPeliID)
    adapt.Fill(table)

    lbFecha.DataSource = table
    lbFecha.DisplayMember = "Fecha_Mostrar" ' 显示格式化后的日期
    lbFecha.ValueMember = "Funcion_Fecha" ' 指定ValueMember为原始日期字段
    lbFecha.SelectedIndex = 0

    ' 正确获取选中值显示到TextBox
    If lbFecha.SelectedItem IsNot Nothing Then
        Dim drv As DataRowView = DirectCast(lbFecha.SelectedItem, DataRowView)
        TextBoxTest.Text = drv("Fecha_Mostrar").ToString()
    End If
End Sub

2. 修正选中项变更事件（lbFecha_SelectedIndexChanged方法） #

用参数化查询处理日期，避免注入和格式匹配问题：

Private Sub lbFecha_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFecha.SelectedIndexChanged
    If lbFecha.SelectedValue Is Nothing Then Return

    Dim varfecha As DateTime = DirectCast(lbFecha.SelectedValue, DateTime)
    Dim table As New DataTable
    ' 参数化查询，避免SQL注入，同时保证日期类型匹配
    Dim Query As String = "SELECT Funcion_Hora FROM Funcion WHERE Pelicula_ID = @PeliculaID AND Funcion_Fecha = @FuncionFecha"
    Dim adp As New SqlDataAdapter(Query, con.cnn)
    adp.SelectCommand.Parameters.AddWithValue("@PeliculaID", varPeliID)
    adp.SelectCommand.Parameters.AddWithValue("@FuncionFecha", varfecha)
    adp.Fill(table)

    lbHora.DataSource = table
    lbHora.DisplayMember = "Funcion_Hora"
End Sub

额外说明 #

• SQL注入风险：永远不要直接拼接变量到SQL语句中，参数化查询是必须的，既能防止注入攻击，也能避免类型转换错误。
• 日期处理：尽量保留DateTime类型传递，不要用字符串格式化后再查询，避免因数据库区域设置不同导致的匹配失败。

内容的提问来源于stack exchange，提问作者A M