Foxtable(狐表)用户栏目专家坐堂 → [求助]这个代码哪错了


  共有2386人关注过本帖树形打印复制链接

主题:[求助]这个代码哪错了

帅哥哟,离线,有人找我吗?
荟美绘姿
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
[求助]这个代码哪错了  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/2/12 13:37:00 [只看该作者]

这个代码在主表里就行,在窗口作为副表就不行了

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/2/12 14:27:00 [只看该作者]

加了还是不行

我是在窗口里做了副表,再在窗口里的副表用双击行就出现了这个运行错误

[此贴子已经被作者于2016/2/12 14:29:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/2/12 14:39:00 [只看该作者]

做个例子上来

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/2/12 16:05:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部