以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  记录窗口共用表的问题求助？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63209)
--  作者：lisheng7177
--  发布时间：2015/1/16 10:33:00
--  记录窗口共用表的问题求助？

窗口里有页面集合，里面有表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事件代码
--  作者：有点甜
--  发布时间：2015/1/16 10:39:00
--  

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

 

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

 
--  作者：lisheng7177
--  发布时间：2015/1/16 10:44:00
--  
我都输好了各自要显示的列，但代码要分别写在页面集合的2个事件中才可以，都写在页面集合的SelectedIndexchanged事件中就报错！
--  作者：lisheng7177
--  发布时间：2015/1/16 10:46:00
--  
我自己先啄磨一下，修改一下代码看看
--  作者：Bin
--  发布时间：2015/1/16 10:48:00
--  
按照2楼的代码不行? 上例子看看
--  作者：有点甜
--  发布时间：2015/1/16 11:01:00
--  
以下是引用lisheng7177在2015-1-16 10:44:00的发言：
我都输好了各自要显示的列，但代码要分别写在页面集合的2个事件中才可以，都写在页面集合的SelectedIndexchanged事件中就报错！

 

写什么代码报错，报什么错？
--  作者：lisheng7177
--  发布时间：2015/1/16 11:17:00
--  

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

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:鉴定管理系统v1.rar
--  作者：lsy
--  发布时间：2015/1/16 11:22:00
--  
同一个窗口中，记录窗口控件动态绑定表，比较简单。

我现在是动态绑定任意窗口中的任意表，其他方面都还好，就是当其他窗口关闭，绑定的表不存在了，记录窗口控件就报错，非得在窗口关闭之前先解除绑定，这样每个窗口，只要其中有表，都要啰嗦几句，好麻烦。
--  作者：有点甜
--  发布时间：2015/1/16 11:26:00
--  

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
--  作者：lisheng7177
--  发布时间：2015/1/16 11:31:00
--  

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

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

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