Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码运行异常


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

主题：代码运行异常
帅哥哟，离线，有人找我吗？
nuoyan88
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00 		代码运行异常  发帖心情 Post By：2017/12/16 17:18:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/12/16 17:24:00 [只看该作者]

Dim r As Row = Tables("账户管理").Current
If r IsNot Nothing
    e.Form.Controls("姓名").Text = "登录账号: [" & r("用户账号") & "]"
    e.Form.Controls("日期").Text = "登录日期: " & Date.Today()
    
    For Each c As Col In Tables("账户管理").Cols
        If e.Form.Controls.contains(c.Name) Then
            e.Form.Controls(c.Name).Enabled = r(c.Name)
        End If
    Next
End If
[此贴子已经被作者于2017/12/16 17:24:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nuoyan88
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00 		  发帖心情 Post By：2017/12/16 18:52:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
cbt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：569 积分：4210 威望：0 精华：0 注册：2015/5/13 8:32:00 		  发帖心情 Post By：2017/12/16 22:26:00 [只看该作者]

 Dim r As Row = Tables("账户管理").Current
If r Is Nothing Then Return

e.Form.Controls("姓名").Text = "登录账号: [" & r("用户账号") & "]"
e.Form.Controls("日期").Text = "登录日期: " & Date.Today()

If Tables("账户管理").Current("工序记录表") = True Then
    e.Form.Controls("工序记录表").Enabled = True
Else
    e.Form.Controls("工序记录表").Enabled = False
End If
If Tables("账户管理").Current("清洗包装报工") = True Then
    e.Form.Controls("清洗包装报工").Enabled = True
Else
    e.Form.Controls("清洗包装报工").Enabled = False
End If
If Tables("账户管理").Current("设备异常申请") = True Then
    e.Form.Controls("设备维修记录").Enabled = True
Else
    e.Form.Controls("设备维修记录").Enabled = False
End If
If Tables("账户管理").Current("系统设置") = True Then
    e.Form.Controls("系统设置").Enabled = True
Else
    e.Form.Controls("系统设置").Enabled = False
End If
If Tables("账户管理").Current("工艺路线维护") = True Then
    e.Form.Controls("工艺路线维护").Enabled = True
Else
    e.Form.Controls("工艺路线维护").Enabled = False
End If
If Tables("账户管理").Current("员工信息管理") = True Then
    e.Form.Controls("员工信息维护").Enabled = True
Else
    e.Form.Controls("员工信息维护").Enabled = False
End If
If Tables("账户管理").Current("BOM基础数据") = True Then
    e.Form.Controls("BOM数据维护").Enabled = True
Else
    e.Form.Controls("BOM数据维护").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序维护") = True Then
    e.Form.Controls("毛坯工序维护").Enabled = True
Else
    e.Form.Controls("毛坯工序维护").Enabled = False
End If
If Tables("账户管理").Current("设备数据维护") = True Then
    e.Form.Controls("设备数据维护").Enabled = True
Else
    e.Form.Controls("设备数据维护").Enabled = False
End If
If Tables("账户管理").Current("人员开机明细") = True Then
    e.Form.Controls("人员开机维护").Enabled = True
Else
    e.Form.Controls("人员开机维护").Enabled = False
End If
If Tables("账户管理").Current("异常类型维护") = True Then
    e.Form.Controls("异常类型管理").Enabled = True
Else
    e.Form.Controls("异常类型管理").Enabled = False
End If
If Tables("账户管理").Current("生产排产维护") = True Then
    e.Form.Controls("生产排产维护").Enabled = True
Else
    e.Form.Controls("生产排产维护").Enabled = False
End If
If Tables("账户管理").Current("生产排产查询") = True Then
    e.Form.Controls("生产排产查询").Enabled = True
Else
    e.Form.Controls("生产排产查询").Enabled = False
End If
If Tables("账户管理").Current("设备数据查询") = True Then
    e.Form.Controls("设备使用查询").Enabled = True
Else
    e.Form.Controls("设备使用查询").Enabled = False
End If
If Tables("账户管理").Current("条码数据查询") = True Then
    e.Form.Controls("条码数据查询").Enabled = True
Else
    e.Form.Controls("条码数据查询").Enabled = False
End If
If Tables("账户管理").Current("工艺路线查询") = True Then
    e.Form.Controls("工艺路线").Enabled = True
Else
    e.Form.Controls("工艺路线").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序查询") = True Then
    e.Form.Controls("漏工序查询").Enabled = True
Else
    e.Form.Controls("漏工序查询").Enabled = False
End If
If Tables("账户管理").Current("生产报工查询") = True Then
    e.Form.Controls("报工查询").Enabled = True
Else
    e.Form.Controls("报工查询").Enabled = False
End If
[此贴子已经被作者于2017/12/16 22:26:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nuoyan88
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00 		  发帖心情 Post By：2017/12/16 22:45:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim r As Row = Tables("账户管理").Current
If r Is Nothing Then Return
e.Form.Controls("姓名").Text = "登录账号: [" & Tables("账户管理").Current("用户账号") & "]"
e.Form.Controls("日期").Text = "登录日期: " & Date.Today()
If Tables("账户管理").Current("工序记录表") = True Then
    e.Form.Controls("工序记录表").Enabled = True
Else
    e.Form.Controls("工序记录表").Enabled = False
End If
If Tables("账户管理").Current("清洗包装报工") = True Then
    e.Form.Controls("清洗包装报工").Enabled = True
Else
    e.Form.Controls("清洗包装报工").Enabled = False
End If
If Tables("账户管理").Current("设备异常申请") = True Then
    e.Form.Controls("设备维修记录").Enabled = True
Else
    e.Form.Controls("设备维修记录").Enabled = False
End If
If Tables("账户管理").Current("系统设置") = True Then
    e.Form.Controls("系统设置").Enabled = True
Else
    e.Form.Controls("系统设置").Enabled = False
End If
If Tables("账户管理").Current("工艺路线维护") = True Then
    e.Form.Controls("工艺路线维护").Enabled = True
Else
    e.Form.Controls("工艺路线维护").Enabled = False
End If
If Tables("账户管理").Current("员工信息管理") = True Then
    e.Form.Controls("员工信息维护").Enabled = True
Else
    e.Form.Controls("员工信息维护").Enabled = False
End If
If Tables("账户管理").Current("BOM基础数据") = True Then
    e.Form.Controls("BOM数据维护").Enabled = True
Else
    e.Form.Controls("BOM数据维护").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序维护") = True Then
    e.Form.Controls("毛坯工序维护").Enabled = True
Else
    e.Form.Controls("毛坯工序维护").Enabled = False
End If
If Tables("账户管理").Current("设备数据维护") = True Then
    e.Form.Controls("设备数据维护").Enabled = True
Else
    e.Form.Controls("设备数据维护").Enabled = False
End If
If Tables("账户管理").Current("人员开机明细") = True Then
    e.Form.Controls("人员开机维护").Enabled = True
Else
    e.Form.Controls("人员开机维护").Enabled = False
End If
If Tables("账户管理").Current("异常类型维护") = True Then
    e.Form.Controls("异常类型管理").Enabled = True
Else
    e.Form.Controls("异常类型管理").Enabled = False
End If
If Tables("账户管理").Current("生产排产维护") = True Then
    e.Form.Controls("生产排产维护").Enabled = True
Else
    e.Form.Controls("生产排产维护").Enabled = False
End If
If Tables("账户管理").Current("生产排产查询") = True Then
    e.Form.Controls("生产排产查询").Enabled = True
Else
    e.Form.Controls("生产排产查询").Enabled = False
End If
If Tables("账户管理").Current("设备数据查询") = True Then
    'e.Form.Controls("设备使用查询").Enabled = True
Else
    'e.Form.Controls("设备使用查询").Enabled = False
End If
If Tables("账户管理").Current("条码数据查询") = True Then
    e.Form.Controls("条码数据查询").Enabled = True
Else
    e.Form.Controls("条码数据查询").Enabled = False
End If
If Tables("账户管理").Current("工艺路线查询") = True Then
    e.Form.Controls("工艺路线").Enabled = True
Else
    e.Form.Controls("工艺路线").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序查询") = True Then
    e.Form.Controls("漏工序查询").Enabled = True
Else
    e.Form.Controls("漏工序查询").Enabled = False
End If
If Tables("账户管理").Current("生产报工查询") = True Then
    e.Form.Controls("报工查询").Enabled = True
Else
    e.Form.Controls("报工查询").Enabled = False
End If

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