For Each v As String In DataTables("表A").GetValues("规格","客户 = '" & kh.text & "'") dtb.AddDef(v, Gettype(Double))Next