Dim sa As String = "TF15-65K0136-001" If sa > "" Then Dim cmd As New SQLCommand cmd.C cmd.CommandText = "SELECT DISTINCT 流水编号,备注说明 Fro m {质检} Where 流水编号 = '" & sa & "'" Dim dt As DataTable dt = cmd.ExecuteReader() If cmd.ExecuteScalar > "" Then 'e.Form.Controls("备注说明").text = dt.DataRows(0)("备注说明") Output.Show(dt.DataRows(0)("备注说明")) End If End If