Foxtable(狐表)用户栏目专家坐堂 → currentchanged 事件


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

主题:currentchanged 事件

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
currentchanged 事件  发帖心情 Post By:2024/12/11 15:15:00 [显示全部帖子]

Vars("cubm") = "档案明细记录"
Dim r As Row = Tables (vars("cubm")).Current
If r IsNot Nothing Then
    For Each rr As Row In Tables (vars("cubm")).rows
        If rr("在编辑") = 1 Then
            rr("在编辑") = Nothing
            rr.Save ()
        End If 
    Next
End If 
如上代码放在currentchanged 事件,我在一个窗口中放了两个表格,一个做为副本指向"档案明细记录",一个做为正本也是指向"档案明细记录",但是通过LOAD加载的数据为空时,判断数据行是否为空会变成报警的?怎么办?

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 15:35:00 [显示全部帖子]


If e.Table.Current is Nothing Then Return   加这行代码在前面也一样会报错呢

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 15:52:00 [显示全部帖子]

我在同一个窗口两个不同页面放了两个表单,一个用副本绑定一个用正本绑定同一个表,但是当加载数据行为空时currentchanged事件就会报错,,

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 15:58:00 [显示全部帖子]

代码有没有意义另说,但为什么会表的currentchanged事件报错?当把其中一个表格取消绑定,同样的代码又不会报错

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 16:10:00 [显示全部帖子]

改为e.table也不行,
If e.Table.Current is Nothing Then Return   加这行代码在前面也一样会报错呢

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 16:17:00 [显示全部帖子]

未将对象引用设置到对象的实例。

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 16:18:00 [显示全部帖子]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.11.1.1
错误所在事件:档案明细记录,CurrentChanged
详细错误信息:
未将对象引用设置到对象的实例。

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 16:26:00 [显示全部帖子]

Vars("cubm") = "档案明细记录"
Dim r As Row = Tables (vars("cubm")).Current
If r IsNot Nothing Then
    For Each rr As Row In Tables (vars("cubm")).rows
        If rr("在编辑") = 1 Then
            rr("在编辑") = Nothing
            rr.Save ()
        End If 
    Next
End If   
这个就是全部的事件代码

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 16:39:00 [显示全部帖子]

Vars("chew") = False
Vars("resu") = False
Vars("cubm") = "档案明细记录"
MessageBox.Show (1111111)
Dim r As Row = e.Table.Current
MessageBox.Show (2222222222)
If r IsNot Nothing Then
    MessageBox.Show (333333333)
    For Each rr As Row In Tables (vars("cubm")).rows
        If rr("在编辑") = 1 Then
            rr("在编辑") = Nothing
            End If 
    Next
    e.Table.save
 End if
当加载为空行时,弹出222222,就报错了,根本执行不到3333

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2024/12/11 17:01:00 [显示全部帖子]

也不行

 回到顶部
总数 13 1 2 下一页