以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 用记录窗口的标题作目录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99352)

--  作者:jyh7081
--  发布时间:2017/4/17 21:47:00
--  [求助] 用记录窗口的标题作目录

我在窗口中放入两个绑定相同的记录窗口,左边的隐藏了数据单元格,只显示标题;右边的反之。

我想点击左边的列标题,右边记录窗口相应的单元格被选中,就是出现焦点单元格框,并出现在显示窗口。请指教!

另外,记录窗口的标题栏背景色能否设置?焦点框的颜色、粗细能否设置?谢谢!

 


图片点击可在新窗口打开查看此主题相关图片如下:image 3.jpg
图片点击可在新窗口打开查看


 

附件:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:记录窗口目录.table


--  作者:有点蓝
--  发布时间:2017/4/18 9:00:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:记录窗口目录.table


--  作者:jyh7081
--  发布时间:2017/4/18 13:37:00
--  

老师的例子很好用,但是放入我的项目后,点击这两个记录窗口都显示:Invalid parameters for Select method.

 

.NET Framework 版本:2.0.50727.5485

Foxtable 版本:2017.3.18.1

错误所在事件:表A,AfterSelChange

详细错误信息:

Invalid parameters for Select method.

 

窗口中的代码太多,我把窗口中的事件代码都注释了,尽量和例子中的代码保持一致还是不行,也不知道从何下手了。

[此贴子已经被作者于2017/4/18 13:58:46编辑过]

--  作者:有点蓝
--  发布时间:2017/4/18 14:15:00
--  
错误所在事件:表A,AfterSelChange

贴出上面事件的代码

--  作者:jyh7081
--  发布时间:2017/4/18 15:56:00
--  

代码就是你给的例子中的代码,换了下窗口名称:

 

If e.OldRange.ColSel <> e.NewRange.ColSel
    If Forms("窗口1").Opened
        Dim rg As WinForm.RecordGrid = Forms("窗口1").Controls("RecordGrid2")
        rg.Select()
        Dim rgb  = rg.BaseControl
        rgb.Select(e.NewRange.ColSel,1)
    End If
End If


--  作者:有点蓝
--  发布时间:2017/4/18 16:21:00
--  
加个判断看看

If e.OldRange.ColSel <> e.NewRange.ColSel andalso e.NewRange.RowSel > 0

--  作者:jyh7081
--  发布时间:2017/4/18 16:52:00
--  
不报错啦,但不定位了
--  作者:有点蓝
--  发布时间:2017/4/18 17:35:00
--  
If e.OldRange.ColSel <> e.NewRange.ColSel andalso e.NewRange.RowSel >= 0
--  作者:jyh7081
--  发布时间:2017/4/18 18:03:00
--  
又和开始一样报错了。
--  作者:有点蓝
--  发布时间:2017/4/18 18:15:00
--  
测试没有问题,做个有问题的项目上来看看