主题：代码有什么问题

bin，你的代码和楼主没有什么区别吧

楼主的问题应该是没有判断窗口1是否打开！出现的问题

If Tables("AA").Current Is Nothing or forms("窗口1").opened =false Then '如果Current为Nothing或者窗口1没打开
    Return '则返回
Else
Dim cmb,CMb1 As WinForm.ComboBox
Forms("窗口1").Controls("ComboBox1").VALUE=Tables("AA").Current("CPYC")
Forms("窗口1").Controls("ComboBox2").VALUE=Tables("AA").Current("CX")
cmb = Forms("窗口1").Controls("ComboBox1")
cmb1 = Forms("窗口1").Controls("ComboBox2")
NYC=Cmb.Value
NCX=Cmb1.Value
End If