主题：记录窗口共用表的问题求助？

窗口里有页面集合，里面有表1和表2，另还有2个记录窗口，现已通过页面集合的SelectedIndexchanged事件写入代码后可以达到选表1页面时记录窗口显示表1，选表2 页面就显示表2，因娱乐 表1和表2列都一样，都很多，想通过点任一页面时，2个记录窗口一起显示当前表的列，这样可以不要拉滚动条才可以看到表的全部列内容。现在我是通过页面集合的 Click事件写入代码后达到了我所想要的效果，但如果把代码全部写进页面集合的SelectedIndexchanged事件就不行，这种效是不是达不到？请版主指点！

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Select e.Sender.SelectedPage.Text
    Case "报名登记表"
        rgd.Table = Tables("报名登记表") '指定绑定表
        rgd.Build() '重新生成记录窗口
       
    Case "审核合格表"
        rgd.Table = Tables("审核合格表") '指定绑定表
        rgd.Build() '重新生成记录窗口
       
End Select
这是页面集合的SelectedIndexchanged事件代码

 

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
Select e.Sender.SelectedPage.Text
    Case "报名登记表"
        rgd.Table = Tables("报名登记表") '指定绑定表
        rgd.Build() '重新生成记录窗口
       
    Case "审核合格表"
        rgd.Table = Tables("审核合格表") '指定绑定表
        rgd.Build() '重新生成记录窗口
       
End Select

 

这是页面集合的 Click事件代码

我都输好了各自要显示的列，但代码要分别写在页面集合的2个事件中才可以，都写在页面集合的SelectedIndexchanged事件中就报错！

我自己先啄磨一下，修改一下代码看看

换了几次代码组合，还是搞不定，上例子吧，请指点！另在“理论考否”列还是搞不定自动显示判断“是或否”，但在控件里观察家是能选择查询了。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鉴定管理系统v1.rar

Dim rgd1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
看甜版的这段代码，我终于知道我错在哪了，如果只1个记录窗口，那么直接rgd就行，但有2个就得加1和2了，我这样理解是否正确？

我对代码理解能力方面还是太差了！

另外“理论考豆类”列不会自动判断“是或否”，问题出在哪？控件查询能选，但判断却不行，请版主明示！谢谢先！！！！！！

逻辑是：当在“报名登记表”判定好符合条件的员工后，选择他们输送到“审核合格表”，在此表中以“鉴定等级”、“申报性质”列作为判断，鉴定等级是“技师”、申报性质是“正常申报”的则判断要参加理论考试，在“理论考否”列自动“是或否”，代码我是依样写的，能在选控件查询，但在列里不会自动判断。

或在“报名登记表”中判断好也行。

谢谢版主！现在可以了！