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

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

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

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

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