vb.net - 带for和不带if语句的VB DBNull解决方案

Question

表格中有很多空白，我希望标签值中的这些空白(DBNull)被忽略并显示为空白值。此外，通过 Web 表单添加和更改表格将很难控制每个输入(23 列数据)。

是否可以使用 FOR 语句来做到这一点？我尝试过没有取得任何成功。我可以使用 IF 语句来做到这一点，但我必须对 23 个标签中的每一个都这样做。

这是我到目前为止的代码(感谢本网站上的人员)。

 Protected Sub TextBox1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Load
    Using sqlconn = New SqlConnection("Data Source=.\sqlexpress;Initial Catalog=KLIJENTI;Integrated Security=True")
        Using sqlcmd = New SqlCommand("Select NAZIV,PUN_NAZIV, ADRESA, GRAD, OPSTINA, PRAVNA_FORMA,DAT_REG, TRAJANJE, MATICNI, PIB, SIFRA_DELATNOSTI, NAZIV_DELATNOSTI, VELICINA, TEKUCI, RZZO, PIO From Baza Where SIFRE = @SIFRE", sqlconn)
            sqlcmd.Parameters.AddWithValue("@SIFRE", TextBox1.Text)

            sqlconn.Open()

            Dim result = sqlcmd.ExecuteReader()
            While (result.Read())
                If result IsNot Nothing Then
                    Label1.Text = result("NAZIV")
                    Label2.Text = result("PUN_NAZIV")
                    Label3.Text = result("ADRESA")
                    Label4.Text = result("GRAD")
                    Label5.Text = result("OPSTINA")
                    Label6.Text = result("PRAVNA_FORMA")
                    Label7.Text = result("DAT_REG")
                    Label8.Text = result("TRAJANJE")
                    Label9.Text = result("MATICNI")
                    Label10.Text = result("PIB")
                    Label11.Text = result("SIFRA_DELATNOSTI")
                    Label12.Text = result("NAZIV_DELATNOSTI")
                    Label13.Text = result("VELICINA")
                    Label14.Text = result("TEKUCI")
                    Label15.Text = result("RZZO") ' PROBLEM DBNull.Value
                    Label16.Text = result("PIO") ' PROBLEM DBNull.Value There are more labels below but I am stuck here

                Else
                    TextBox1.Focus()


                End If
            End While
        End Using
    End Using
    TextBox1.Text = ""
End Sub

此外，在本例中，它们位于第 15 和 16 个标签中，到处都是空白。

谢谢。

Answer 1

只需将此函数添加到您的类中即可:

Private Shared Function GetTextOrEmpty(reader As IDataReader, fieldName As String)
    Dim ordinal = reader.GetOrdinal(fieldName)

    Return If(reader.IsDbNull(ordinal), String.Empty, reader.GetString(ordinal))
End Function

然后，在您的 For 循环中:

'Other labels (...)
Label14.Text = GetTextOrEmpty(result, "TEKUCI")
Label15.Text = GetTextOrEmpty(result, "RZZO")
'Other labels (...)