| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码有什么问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58118) |
| -- 作者：Bin -- 发布时间：2014/10/11 17:14:00 -- If Tables("AA").Current Isnot Nothing Then \'如果Current为Nothing 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 |
| -- 作者：菲舍尔 -- 发布时间：2014/10/11 17:21:00 -- bin，你的代码和楼主没有什么区别吧
楼主的问题应该是没有判断窗口1是否打开！出现的问题
If Tables("AA").Current Is Nothing or forms("窗口1").opened =false Then \'如果Current为Nothing或者窗口1没打开 |