Foxtable(狐表)用户栏目专家坐堂 → [求助]选定表中位置的单元格Select方法


  共有2607人关注过本帖树形打印复制链接

主题:[求助]选定表中位置的单元格Select方法

帅哥哟,离线,有人找我吗?
dogman
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1036 威望:0 精华:0 注册:2013/9/2 18:25:00
[求助]选定表中位置的单元格Select方法  发帖心情 Post By:2015/9/9 16:00:00 [只看该作者]

问题1:
选定表中位置的单元格Select方法,只能用在Table范围中吗?
比如:CurrentTable.Select(CurrentTable.Rowsel, CurrentTable.Cols("客户").Index),选定当前表的当前行的“客户”列单元格
这一句只能放在StartEdit等的编辑事件中,不能放在DataColChanging的数据事件中吗?
放在DataColChanging中的话会选定其他列,真怪。

问题2:
表编辑事件StartEdit的中的代码如下:
If e.Row.IsNull("客户") = True Then
    e.Cancel = True
    MessageBox.Show(" 请先输入""客户""!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    CurrentTable.Select(CurrentTable.Rowsel,CurrentTable.Cols("客户").Index)
End If
其他测试没问题,但是当选定一整行按Del键后,就会不厌其烦的跳出对话框。怎么解决呢?

补充一下:
StartEdit全部代码如下:

Select Case e.Col.Name
    Case "客户", _
        "员工姓名"
        
    Case Else
        If e.Table.Value = Nothing Then
            If e.Row.IsNull("员工姓名") = True Then
                e.Cancel = True
                MessageBox.Show(" 请先输入""员工姓名""!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                CurrentTable.Select(CurrentTable.Rowsel,CurrentTable.Cols("员工姓名").Index)
            End If
            
            If e.Row.IsNull("客户") = True AndAlso e.Row.IsNull("员工姓名") = False Then
                e.Cancel = True
                MessageBox.Show(" 请先输入""客户""!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                CurrentTable.Select(CurrentTable.Rowsel, CurrentTable.Cols("客户").Index)
            End If
        End If
End Select
[此贴子已经被作者于2015/9/9 16:23:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/9 17:25:00 [只看该作者]

问题1:可以放在DataColChanging事件

 

Tables("表名").Select(Tables("表名").Rowsel, Tables("表名").Cols("客户").Index)

 

问题2:去编写keydown事件,检查如果是del键,就设置一个变量,不弹出对话框。

 

If e.KeCode = Keys.Delete Then

    Vars("不弹出") = true

Else

    Vars("不弹出") = False

End If

 


 回到顶部
帅哥哟,离线,有人找我吗?
dogman
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1036 威望:0 精华:0 注册:2013/9/2 18:25:00
  发帖心情 Post By:2015/9/10 13:55:00 [只看该作者]

谢谢!
Vars的思路给我开阔了眼界。

 回到顶部