Dim spmc As WinForm.ComboBox = e.senderTables("宝藏商品选择_宝藏商品").Filter = " 商品名称 like '%" & spmc.value & "%'"Dim Li = spmc.ItemsIf li.Contains(spmc.value) = False Then li.Add(spmc.value)End IfSaveConfigValue("prd", spmc.ComboList)