Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教，当状态改变的时候向单元格写入字符的程序怎么写？


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

主题：求教，当状态改变的时候向单元格写入字符的程序怎么写？
帅哥哟，离线，有人找我吗？
hitzfeld
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：547 积分：5357 威望：0 精华：0 注册：2017/9/1 23:28:00 		求教，当状态改变的时候向单元格写入字符的程序怎么写？  发帖心情 Post By：2018/10/29 14:26:00 [只看该作者]

很简单的程序，但是怎么搞都搞不好.......

要求：
按钮按下“审核”的时候，把当前行的状态改变为锁定行的时候，向审核字段写入“已审核”，当按钮按下“反审核”的时候，解锁当前行，并在“审核”列写入“反审核”

我尝试了在DataRowLockedChanged中写入e.DataRow("审核") = "已审核"可以审核了，但是按没办法反审核。


图片点击可在新窗口打开查看此主题相关图片如下：fsh.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataRow("审核") = nothing Then

    e.DataRow("审核") = "已审核"

ElseIf e.DataRow("审核") = "已审核" andalso e.datarow.locked = false Then

    e.DataRow("审核") = "反审核"

ElseIf e.datarow.locked = true andalso e.DataRow("审核") = "反审核" Then

    e.DataRow("审核") = "审核"

End If
 回到顶部
帅哥哟，离线，有人找我吗？
hitzfeld
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：547 积分：5357 威望：0 精华：0 注册：2017/9/1 23:28:00 		  发帖心情 Post By：2018/10/30 0:17:00 [只看该作者]

谢谢甜老师！原来代码这么复杂......我还以为是一句话的事情...........图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
hitzfeld
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：547 积分：5357 威望：0 精华：0 注册：2017/9/1 23:28:00 		  发帖心情 Post By：2018/10/30 0:42:00 [只看该作者]

以下是引用有点甜在2018/10/29 14:37:00的发言：

If e.DataRow("审核") = nothing Then

    e.DataRow("审核") = "已审核"

ElseIf e.DataRow("审核") = "已审核" andalso e.datarow.locked = false Then

    e.DataRow("审核") = "反审核"

ElseIf e.datarow.locked = true andalso e.DataRow("审核") = "反审核" Then

    e.DataRow("审核") = "审核"

End If


甜老师，代码有错误，如果多点几次，比如先锁定行，再解锁行，再锁定行，审核状态会变成“审核”，然后不管你按解锁还是锁定，再也不会变化了。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

呃，代码自行修改一下，比如

 

e.DataRow("审核") = "已审核"
 回到顶部
帅哥哟，离线，有人找我吗？
hitzfeld
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：547 积分：5357 威望：0 精华：0 注册：2017/9/1 23:28:00 		  发帖心情 Post By：2018/11/1 21:36:00 [只看该作者]

以下是引用有点甜在2018/10/30 10:14:00的发言：

呃，代码自行修改一下，比如

 

e.DataRow("审核") = "已审核"


谢谢甜老师！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询