Dim dr As DataRow = DataTables("表a").find("名称='名称1'")
Dim str As String = dr("颜色1") & "|" & dr("颜色2") & "|" & dr("颜色3")
Tables("表B").Cols("第一列").Combolist = str