Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "SELECT DISTINCT 产品 From {订单}" dt = cmd.ExecuteReader() DataTables("表A").DataCols("第一列").ExtendType = ExtendTypeEnum.Values Tables("表A").Cols("第一列").ComboList = dt.GetComboListString("产品")