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

窗口里有页面集合，里面有表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事件代码

 绑定之前，控制要显示的列即可。

http://www.foxtable.com/help/topics/2455.htm

写什么代码报错，报什么错？

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

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

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

Dim gzdw As WinForm.ComboBox = e.Form.Controls("工作单位")
Dim jdpc As WinForm.ComboBox = e.Form.Controls("鉴定批次")

Select e.Sender.SelectedPage.Text
    Case "报名登记表"
        gzdw.ComboList = DataTables("报名登记表").GetComboListString("工作单位")
        jdpc.ComboList = DataTables("报名登记表").GetComboListString("鉴定批次")
    Case "审核合格表"
        gzdw.ComboList = DataTables("审核合格表").GetComboListString("工作单位")
        jdpc.ComboList = DataTables("审核合格表").GetComboListString("鉴定批次")
End Select

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

Select e.Sender.SelectedPage.Text
    Case "报名登记表"
        Forms("报名审核").Controls("PictureViewer1").BindingField = "报名登记表.照片"
    Case "审核合格表"
        Forms("报名审核").Controls("PictureViewer1").BindingField = "审核合格表.照片"
       
       
End Select

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

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

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