以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]记录窗口问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83599)
--  作者：pcxjxjhkw
--  发布时间：2016/4/13 1:23:00
--  [求助]记录窗口问题

两个记录窗口，有相同的列名，如何实现：

单击一个记录窗口的某一列名，另一个记录窗口的相同列名也呈现选中状态。

如：单击记录窗口的【姓名】列，另一记录窗口的【姓名】列也呈现选中状态。

 

2.记录窗口单击某一列时，其列名显示为红色。

 

谢谢

[此贴子已经被作者于2016/4/13 1:23:49编辑过]
--  作者：大红袍
--  发布时间：2016/4/13 2:22:00
--  

绑定事件

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72491&skin=0

 
--  作者：pcxjxjhkw
--  发布时间：2016/4/13 9:07:00
--  
打开窗口后，不单击记录窗口，如何返回已选中的列？
--  作者：Hyphen
--  发布时间：2016/4/13 9:53:00
--  
上例子说明
--  作者：大红袍
--  发布时间：2016/4/13 15:02:00
--  
以下是引用pcxjxjhkw在2016/4/13 9:07:00的发言：
打开窗口后，不单击记录窗口，如何返回已选中的列？

 

打开窗口你默认选中哪一个列？如果你没有选中，默认都是第一列的。
--  作者：pcxjxjhkw
--  发布时间：2016/4/13 21:00:00
--  

如何用代码实现：选中记录窗口的指定行？

如：要选中【性别】行。

 

谢谢
--  作者：大红袍
--  发布时间：2016/4/13 21:04:00
--  

一样。

 

Dim rgd As object = e.Form.Controls("RecordGrid1").basecontrol

For Each r As Object In rgd.Rows
    If r(0) = "第一列" Then
        rgd.Select(r.Index, 1)
        rgd.Select
        Exit For
    End If
Next
--  作者：pcxjxjhkw
--  发布时间：2016/4/13 21:29:00
--  
谢谢
--  作者：pcxjxjhkw
--  发布时间：2016/4/13 22:01:00
--  
如何实现：记录窗口的所有行都不选中。谢谢
--  作者：大红袍
--  发布时间：2016/4/13 22:09:00
--  

Dim rgd As object = e.Form.Controls("RecordGrid1").basecontrol

For Each r As Object In rgd.Rows
    If r(0) = "第一列" Then   
        rgd.Select(r.Index, -1)
        rgd.Select
        Exit For
    End If
   
Next