Foxtable(狐表)用户栏目专家坐堂 → 甜甜老师,求助


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

主题:甜甜老师,求助

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


加好友 发短信
等级:四尾狐 帖子:821 积分:5760 威望:0 精华:0 注册:2015/2/3 22:19:00
甜甜老师,求助  发帖心情 Post By:2018/10/24 11:30:00 [只看该作者]

If e.DataCol.name = "日期" Then
    If e.newvalue = True Then
        e.DataRow("班期") = "变更"
    End If
End If

错误:

.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2018.9.9.1
错误所在事件:表A,表A,DataColChanged
详细错误信息:
调用的目标发生了异常。
没有为 类型“Date” 和 类型“Boolean” 定义运算符“=”。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/24 11:40:00 [只看该作者]

If e.DataCol.name = "日期" Then
    If e.newvalue <> Nothing Then
        e.DataRow("班期") = "变更"
    End If
End If

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


加好友 发短信
等级:四尾狐 帖子:821 积分:5760 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/10/24 11:47:00 [只看该作者]

谢谢, 吃饭了吗,甜甜
[此贴子已经被作者于2018/10/24 11:48:07编辑过]

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


加好友 发短信
等级:四尾狐 帖子:821 积分:5760 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/10/24 11:55:00 [只看该作者]

If e.DataCol.name = "日期" Then
    If e.newvalue <> Nothing Then  ‘ 这列有日期,当改成新的日期,然后执行下面代码,好象不可以。
        e.DataRow("班期") = "变更"
    End If
End If

好象不能实现哦, 

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/24 12:00:00 [只看该作者]

If e.DataCol.name = "日期" Then
    If e.oldvalue <> nothing andalso e.newvalue <> Nothing Then 
        e.DataRow("班期") = "变更"
    End If
End If

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


加好友 发短信
等级:四尾狐 帖子:821 积分:5760 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/10/25 10:25:00 [只看该作者]

哦,这个代码不能写在 currentchanged事件里面啊? 如果放里面, 会出现 newvalue 不是tableeventargs的成员。

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/25 10:35:00 [只看该作者]

不能写在 currentchanged事件

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


加好友 发短信
等级:四尾狐 帖子:821 积分:5760 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/10/25 11:37:00 [只看该作者]

If e.DataCol.name = "日期" Then   
   If e.oldvalue <> Nothing And e.newvalue <> Nothing Then 
     e.DataRow("班期") = "变更"
  Tables("表A").Current.Move(-1)  ’然后把此行移动到最后一行,提示在排序状态下不能移动行,有其他操作方法吗?
    End If
End If

难道在此句前后加上 不排序,再排序的语句吗? 这样会出现跳跃,不想实现象刷新一样的效果。
[此贴子已经被作者于2018/10/25 11:38:59编辑过]

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/25 11:40:00 [只看该作者]

在排序状态下不能移动行。要么取消排序,要么不要移动

 回到顶部