[求助]为什么有的RecordGrid控件要点击两下才能选中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]为什么有的RecordGrid控件要点击两下才能选中

共有1810人关注过本帖树形打印复制链接主题：[求助]为什么有的RecordGrid控件要点击两下才能选中

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 18:32:00 [显示全部帖子]

你的 RecordGrid 放在容器里面了？Tabcontrol？

做个例子上来

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/3 16:03:00 [显示全部帖子]

If e.OldRange.ColSel <> e.NewRange.ColSel AndAlso e.NewRange.RowSel >= 0
    If Forms("窗口1").Opened
        Dim rg As WinForm.RecordGrid = Forms("窗口1").Controls("RecordGrid" & (Forms("窗口1").Controls("TabControl2").selectedindex+1))
        rg.Select()
        Dim rgb = rg.BaseControl
        Dim cname As String = e.Table.Cols(e.NewRange.ColSel).Name
        For i2 As Integer = 0 To rgb.Rows.count-1
            If rgb(i2, 0) = cname Then
                rgb.Select(i2, 1)
            End If
        Next
    End If
End If

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/4 15:29:00 [显示全部帖子]

你的RecordGrid控件的名，要命名为 1、2、3 这样；

在TabControl控件里，1放在page1里，2放在page2里，3放在page3里，5楼的代码就不用改。

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/4 15:30:00 [显示全部帖子]

如果你有多个需要联动，你就要拷贝多段，或者写成循环。

下一主题 >> << 上一主题

主题：[求助]为什么有的RecordGrid控件要点击两下才能选中