主题：下拉列问题

狐爸及各位大侠好！有连个问题麻烦一下大家：

1、有个整数列，列名为A，里面数有可能重复，如1、2、2、3、4、4、5...，然后我想在A列做一下拉列，这个下拉列引用的列也是A列，但是，我现在想让下拉列出现的数据是不重复的，即出现的是：1、2、3、4、5...，请问应该怎么加个代码？

2、上面问题的延伸问题，如果我希望下拉列出现的数据是最大的那个数字+1，比如这里，希望出现的是5+1=6，请问代码应该怎么写？

http://www.foxtable.com/help/topics/1435.htm

 

http://www.foxtable.com/help/topics/0605.htm

 

 

设置在这个表的PrePareEdit事件中：

 

 

If e.Col.Name = "YY" Then

    Dim s As String = DataTables("MMNN").GetComboListString("A")
    Dim v As integer = DataTables("MMNN").Compute("Max(A)") + 1
    Tables("XX").Cols("YY").ComboList = s & "|" & v

end if

先感谢狐爸及CZY,我把这个代码试了一下，结果出错了。我补充一点，A列引用的是自己这列，即同一张表的A列引用A列

另外，我最楼上提的两个问题是独立的，一个问题希望表现的是下列为1、2、3、4、5；第二个问题希望下拉列表现就是一个6

狐爸，是我错了，我开始没有取消在列属性中设置的下拉列，通过取消后，现在能出现不重复的下拉列了。但我现在就想让其出现最大的那一个值，怎么办

3楼就可以在后面列出一个最大的值啊。

狐爸，补充一下，是最大的那个+1的值，下拉表中只表现这一个值

 

If e.Col.Name = "YY" Then

   Dim v As integer = DataTables("MMNN").Compute("Max(A)") + 1
   Tables("XX").Cols("YY").ComboList = v

end if

狐爸，可以了，我在你的代码的基础上修改了一下，能行。感谢了！