- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这个代码哪错了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80927)
-- 发布时间：2016/2/12 12:59:00
-- [求助]这个代码哪错了
Forms("目录窗口").open()
If forms("目录窗口").opened Then
forms("目录窗口").controls("Label2").text=e.Table.current("ajdjh")
End If
Forms("一般程序管理").open()
If forms("一般程序管理").opened Then
forms("一般程序管理").controls("ComboBox1").text=e.Table.current("jbxx_zfry1")
forms("一般程序管理").controls("Label8").text=e.Table.current("jbxx_zfzh1")
forms("一般程序管理").controls("ComboBox2").text=e.Table.current("jbxx_zfry2")
forms("一般程序管理").controls("Label9").text=e.Table.current("jbxx_zfzh2")
End If
双击行后出现运行错误：未将对象引用设置到对象的实例。
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：ybchengxu,DoubleClick
详细错误信息：
未将对象引用设置到对象的实例。
请指教，谢谢
[此贴子已经被作者于2016/2/12 13:24:16编辑过]
-- 发布时间：2016/2/12 13:37:00
--
这个代码在主表里就行，在窗口作为副表就不行了
-- 发布时间：2016/2/12 14:10:00
--
代码前面加上e.Cancel = True，试试
Dim dr As Row = e.Row
e.Cancel = True
Forms("目录窗口").open()
If forms("目录窗口").opened Then
forms("目录窗口").controls("Label2").text=dr("ajdjh")
End If
Forms("一般程序管理").open()
If forms("一般程序管理").opened Then
forms("一般程序管理").controls("ComboBox1").text=dr("jbxx_zfry1")
forms("一般程序管理").controls("Label8").text=dr("jbxx_zfzh1")
forms("一般程序管理").controls("ComboBox2").text=dr("jbxx_zfry2")
forms("一般程序管理").controls("Label9").text=dr("jbxx_zfzh2")
End If
-- 发布时间：2016/2/12 14:27:00
--
加了还是不行
我是在窗口里做了副表,再在窗口里的副表用双击行就出现了这个运行错误
[此贴子已经被作者于2016/2/12 14:29:28编辑过]
-- 发布时间：2016/2/12 14:39:00
--
做个例子上来
-- 发布时间：2016/2/12 16:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2016/2/13 23:44:00
--
Dim dr As Row = e.Row
e.Cancel = True
Forms("窗口3").open()
If forms("窗口3").opened Then
forms("窗口3").controls("Label1").text=dr("第一列")
End If
Forms("窗口1").open()
If forms("窗口1").opened Then
forms("窗口1").controls("TextBox1").text=dr("第三列")
forms("窗口1").controls("TextBox2").text=dr("第九列")
End If