主题：这是错在哪？判断代码问题求指点！！！！！！

 不知道你想表达什么，去掉 If Forms("报名审核").Controls("TabControl1").Selected("报名登记表").txt

 或者，直接写

If Forms("报名审核").Controls("TabControl1").SelectedPage.Name = "报名登记表"

 1、代码写到导入按钮

Dim gzdw As WinForm.ComboBox = e.Form.Controls("工作单位")
Dim jdpc As WinForm.ComboBox = e.Form.Controls("鉴定批次")
Dim sfhg As WinForm.ComboBox = e.Form.Controls("是否合格")
gzdw.ComboList = DataTables("报名登记表").GetComboListString("工作单位")
jdpc.ComboList = DataTables("报名登记表").GetComboListString("鉴定批次")
sfhg.ComboList = DataTables("报名登记表").GetComboListString("是否合格")
gzdw.ComboList = DataTables("审核合格表").GetComboListString("工作单位")
jdpc.ComboList = DataTables("审核合格表").GetComboListString("鉴定批次")
sfhg.ComboList = DataTables("审核合格表").GetComboListString("是否合格")

 或者，在对应控件的enter事件写入

2、

If Forms("报名审核").Controls("TabControl1").SelectedPage.Text = "报名登记表"

我测试没问题啊。

If Forms("报名审核").Opened AndAlso Forms("报名审核").Controls("TabControl1").SelectedPage.Text = "报名登记表"

End If

 比如控件的enter事件代码

Dim gzdw As WinForm.ComboBox = e.Sener
gzdw.ComboList = DataTables("报名登记表").GetComboListString("工作单位")

你能不能先去学基础？

Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "' And convert(substring(证书编号,1,2),'System.Int32') <= " & Date.Today.Year - 2000 - 5)

根本就没有必要在DataCochanged事件判断啊。

要判断也是在导入按钮或者是重置列那里判断啊。

走马看花的阅读帮助，不要说自己看过了。我还看完辞海了呢

 无语，click事件不能用e.DataCol对象啊。

 我的意思是，你在按钮那里写重置某列的代码啊。

 参考

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