主题：从字符串“”到类型“Double”的转换无效

     Dim dr As DataRow

    dr = DataTables("PROJECT").Find("[PROJECT_NAME] = '" & e.Form.Controls("ComboBox1").text & "'")

    Dim sd As Double = dr("ID")

    DataTables("收入产品期限").DataRows.Clear        '执行这句的时候，总是提示运行错误： 从字符串“”到类型“Double”的转换无效。

   

    Dim valst2 As List(Of String) = DataTables("CUSTOMER_RATE").GetValues("PRO_TERM","PRO_TERM <> '产品期限\成交额度' And  PRO_ID ='"& sd &"' ")

   

       For Each val2 As String In valst2

        

        Dim dtr2 As DataRow = DataTables("收入产品期限").AddNew      '执行这句的时候，总是提示2次运行错误： 从字符串“”到类型“Double”的转换无效。

        

        dtr2("产品期限") = val2

        

    Next

以上代码哪里有错误吗？   表 收入产品期限的所有列 都是 字符格式的

是编辑在窗体下拉框控件的  SelectedIndexChanged  事件