Dim cmd2 As New SQLCommand
Dim dt2 As DataTable
cmd2.C
cmd2.CommandText = "SELECT DISTINCT 参数计量 F rom {参数计量}"
dt2 = cmd1.ExecuteReader
Dim str As String = dt2.SQLGetComboListString("参数计量")
Dim str2() As String = str.Split("|")
For i As Integer = 0 To str2.Length - 2
str2(i) = Format(val(str2(i)),"0.0")
Next
Tables("因子库主表").Cols("参数计量").Combolist = String.Join("|",str2)