Vb.net 在表单中动态创建标签和文本框，其中标签中的文本应来自我的sql compact数据库

我想在

表单中动态创建
标签
和
文本框
。

标签中的文本应来自我的
SQL Compact
数据库。

当我运行
表单
时，它会给我以下错误：

从字符串“”到类型“double”的转换无效

我试过研究，但找不到答案。

谢谢

这是我的代码：

Public Function countrows()
    checkServer()

    CnString = "Data Source=|DataDirectory|\dbEsyPOS.sdf;Persist Security Info=True; Password=CQ25dbEsyPOS"
    Dim sqlCon As New SqlCeConnection(CnString)
      sqlCon.Open()
    Using cmd As New SqlCeCommand("SELECT *FROM tbl_sale ")
        Using sda As New SqlCeDataAdapter
            cmd.Connection = sqlCon
            sda.SelectCommand = cmd

            Using sqlDT As New DataTable

                Try
                    sda.Fill(sqlDT)
                    If (sqlDT.Rows.Count > 0) Then
                        For i As Integer = 0 To sqlDT.Rows.Count - 1
                            Dim lblTitle As Label = New Label()

                            lblTitle.Name = "Label" & i.ToString()
                            lblTitle.Text = CStr(sqlDT.Rows(i)(0)("term_of_payment"))
                            Panel2.Controls.Add(lblTitle)
                        Next
                    End If

                Catch ex As Exception
                    MessageBox.Show("Oops :" + ex.Message)
                End Try
            End Using
        End Using
    End Using
End Function

Ps我是个新手，任何帮助或更正都将不胜感激：）
这行代码没有意义：

lblTitle.Text = CnString(sqlDT.Rows(i)(0)("term_of_payment"))

我猜您实际上想做的是从“付款期限”列中获取一个
字符串。看起来是这样的：

lblTitle.Text = CStr(sqlDT.Rows(i)("term_of_payment"))

在这一行中，您试图做什么：lblTitle.Text=CnString（sqlDT.Rows（i）（0）（“付款条件”）？另外，您的连接字符串在创建连接后才会设置？我希望标签中的文本来自数据库列中的值。“付款”一词是列的名称，我将更改它，thanksHow这有意义吗：
如果sqlDT.Rows.Count=“”
？
Integer
类型的属性怎么可能等于空的
字符串
？立即在项目属性中启用
选项Strict，然后修复它标记的所有键入问题。你会从一个更好的角度出发。另外，在IDE选项中将其
打开
，以便在将来的项目中默认情况下它将
打开
。