Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么锁定知道行


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

主题：怎么锁定知道行
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		怎么锁定知道行  发帖心情 Post By：2013/12/31 19:47:00 [显示全部帖子]

一个表里面有很多行数据 ，每行都有一列是“是否提交“想设置一个按钮。点击一下自动锁定所有的提交过的行。代码怎么写。麻烦告诉帮忙写一下

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


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 19:57:00 [显示全部帖子]

图片点击可在新窗口打开查看麻烦告诉帮忙写一下代码吧，我截图传上来了。谢谢了啊
图片点击可在新窗口打开查看此主题相关图片如下：2013-12-31_195532.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 20:24:00 [显示全部帖子]

以下是引用有点甜在2013-12-31 20:20:00的发言：
 按钮代码

For Each r As Row In Tables("xxx").Rows
    r.Locked = r("是否提交")
Next



如果我把这个提交按钮放在导航窗口里面，怎么让这段代码自动执行当前表呢。怎么加代码，我学的不是很熟，一直出错，
还有

我的 这个表是分组的，怎么实现一次直接锁定一组呢。没行都有一列是”组号“怎么实现点击一下锁定一个组的行呢。


再麻烦你了，谢谢了啊

[此贴子已经被作者于2013-12-31 20:30:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 20:46:00 [显示全部帖子]

太感谢了，困扰我一天了，谢谢了啊，一会还有一个问题比较复杂需要你帮，谢谢

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


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 20:57:00 [显示全部帖子]

这个表的最后的”备注“一列要求比较高，具体要求签名所以成绩从第一科车工成绩开始到倒数第三列只要有一列不及格则最后一列的备注列就显示的是”不及格“
如果前面所有成绩都及格的话再判断倒数第二列”综合成绩“。如果”综合成绩“大于90则”备注“为优秀，如果80到90，”备注“显示”良好“，如果70到80”中等“，如果60到70是”及格“如果低于60，则吧”备注“列为”不及格“
这个逻辑表达太难了，对于  我初学就更难了。再麻烦你了。
图片点击可在新窗口打开查看此主题相关图片如下：2013-12-31_205221.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 21:24:00 [显示全部帖子]

以下是引用有点甜在2013-12-31 21:11:00的发言：
 Dim t As Table = Tables("xxx")
For Each r As Row In t.Rows
    Dim over As Boolean = False
    For i As Integer = 4 To 21
        If r(t.Cols(i).Name) < 60 Then
           r("备注") = "不及格"
           over = True
            Exit For
        End If
    Next
    If over = False Then
        If r("综合成绩") > 90 Then
            r("备注") = "优秀"
        Else If r("综合成绩") > 80 Then
            r("备注") = "良好"
        Else If r("综合成绩") > 70 Then
            r("备注") = "中等"
        Else If r("综合成绩") > 60 Then
            r("备注") = "合格"
        Else 
            r("备注") = "不合格"
        End If
    End If
Next




太感谢你了，这些代码我一星期也想不到，这个代码我看懂了，可是把这个代码写在那个事件呢，还是另加一个按钮呢、？

[此贴子已经被作者于2013-12-31 21:25:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 22:04:00 [显示全部帖子]

以下是引用有点甜在2013-12-31 21:46:00的发言：
 单做一个按钮比较好。如果写到事件里，需要改一下。

在你的帮助下我的难点全部解决了，真的很感谢了，现在就剩下小的修补了，
第一次的提交后能不能再另一个表里面自动赋值”已提交“这样便于管理员查看那个提交没有，具体是下面的截图。

图片点击可在新窗口打开查看此主题相关图片如下：提交034.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2013-12-31 22:04:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2013/12/31 22:26:00 [显示全部帖子]

这个代码中的需要表”提交记录“里面的列名和其他工种成绩报表的名字一样吗，这个后半部分没怎么看懂，不过我试试。如果不行必须改一样吗？列名可以改，表名该了前面好多程序都引用的表名的。

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


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2014/1/1 0:03:00 [显示全部帖子]

以下是引用有点甜在2013-12-31 22:31:00的发言：
 不需要一样，车工 成绩报表，只需要对应 车工
我用“车工”和“工种14”两个实验了一下，提交成功了，可是好像只是提交了最后一行的哪一组，最后是第几组，就只提交了这组的“提交记录”这样如果一次提交的是两组的话，就记录不全，能把代码完善一下嘛？
 回到顶部
帅哥哟，离线，有人找我吗？
wang1988sen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1044 威望：0 精华：0 注册：2013/12/27 0:27:00 		  发帖心情 Post By：2014/1/1 0:04:00 [显示全部帖子]

这是提交结果
图片点击可在新窗口打开查看此主题相关图片如下：工种14.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：提交结果.png
图片点击可在新窗口打开查看
 回到顶部
总数 43 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询