内置筛选器  最后一行  只要一下拉  就会新增一行

 
此主题相关图片如下：未命名.jpg

而我自制的筛选器 下拉选择后 才能新增一行

 
此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

我代码是放在 changeEdit里的

代码如下：

If e.Row.Index = Tables(e.Table.Name).count - 1 Then
    Dim flt As String
    Dim dr As Row = Tables(e.Table.Name).Rows(Tables(e.Table.Name).count - 1)
    For Each dc As Col In Tables(e.Table.Name).Cols
        If dr(dc) IsNot Nothing Then
            Tables(e.Table.Name).addnew()
            Return
        End If
    Next
End If

startedit 里 就没下拉框了 每次点击 下拉框闪现一下 然后新增一行 选择不了下拉框

StartEdit

开始编辑的时候执行。

e参数属性：

Table:       准备编辑的表
Row:         准备编辑的行
Col:         准备编辑的列
IsFocusCell: 逻辑型，是否是焦点单元格
Cancel:      逻辑型，默认为False，设为True取消编辑。

StartEdit事件的使用方法和PrepareEdit事件完全一样，实际上大部分PrepareEdit能完成的工作，都可以用StartEdit完成。
但是两者有细微差别；PrepareEdit事件的代码，一进入单元格就会执行，为可能开始的编辑工作做准备，所以执行效率会差一些，因为并不是每次进入单元格都是需要编辑的；而StartEdit只是在真正开始编辑的时候执行，效率会稍微好一点；不过这种效率的差别，我们并不会明显感觉得到。
此外用于设置列表项目的代码，最好不要用在StartEdit事件中，否则你选择某一单元格的时候，可能不会出现下拉键头按钮，因为此时StartEdit事件并没有执行，列表项目当然也就没有准备好。
千万不要在PrepareEdit事件显示Messagebox这样的对话框，因为每次进入单元格就会出现提示，这样会导致死循环的出现；在StartEdit事件中显示对话框就没有这个问题，因为此时只有用户真正做出编辑动作的时候，对话框才会显示。

那就下拉后，再增加行吧，又不影响什么的。

 哦 那先这样吧~~~~~~~~