If DataTables("表名").DataCols.Contains("x") = false Then DataTables("表名").DataCols.Add("x", GetType(String)) End If For Each dr As DataRow In DataTables("ff").DataRows If dr.IsNull("规格") = false And dr.IsNull("型号") = false Then dr("x") = dr("规格") & dr("型号") End If Next CurrentTable.Select(0,CurrentTable.Cols.Count -1) Syscmd.Filter.ShowSameValues()