'不重复值下拉框 If e.IsFocusCell Then '如果是焦点所在单元格 If e.Col.Name = "项目编码" Then Dim Arys As List(Of String()) Arys = DataTables("合同清单").GetValues("项目编码|项目名称|项目特征","[专业编号] = '" & e.Row("专业编号") & "'") ',"[_SortKey]") Dim str As String = "" For Each Ary As String() In Arys str &= Ary(0) & "," & Ary(1) & "," & Ary(2) & "|" Next e.Col.Combolist = str.trim("|") End If End If
|