主题：窗口位置

Dim CName As String = "第一列"
Dim i As Integer = CurrentTable.Cols(CName).Index
CurrentTable.Select(0,i)
Syscmd.Filter.HideSameValues()

 

 

With Tables("表名")
            .Select(.RowSel, .Cols("列名").Index)
            Syscmd.Filter.HideSameValues()
        End With

 

 

发错了!

两个代码都行

SetBounds

用于设置窗口的位置和大小，仅对独立窗口和模式窗口有效。
　

语法

SetBounds(x, y, Width, Height)

x: 窗口水平位置
y: 窗口垂直位置
Width: 窗口宽度
Height: 窗口高度

不瞒你讲,我也测试了很久,但是效果做不出来,关键你这样做的原因是什么?

什么意思?如果下拉的那一列锁定不能下拉,那么把那一列解开.

 

e.Cancel = True
If e.col.Name ="第一列" Then
    e.Cancel = False
End If

 

 

PrepareEdit 

表事件

 

但是不能锁定行.有这个代码后,只有第一列可以编辑.

这个不太懂哦.