Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码设置掩码的问题


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

主题：[求助]代码设置掩码的问题
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1106 积分：8977 威望：0 精华：0 注册：2014/10/25 11:24:00 		[求助]代码设置掩码的问题  发帖心情 Post By：2015/1/13 12:03:00 [只看该作者]

Tables("生产记录表").grid.Cols("单据号").EditMask="这里不会输入，请老师指导"

我希望掩码的内容是：ZJ01-2015-01-08-01，掩码中 “ZJ01”与“-”是固定字符，其他数字部分是人工输入的。
如果在列属于中设置，我的设置方法是"ZJ01-"0000"-"00"-"00"-"00
现在要根据不同的工序生成不同的掩码，请问代码如何写。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 一列，只能生成一种掩码。

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


加好友 发短信
等级：五尾狐 帖子：1106 积分：8977 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2015/1/13 12:10:00 [只看该作者]

我的代码想这样设计：

if 工序名=A，then
掩码A
else if 工序名=B then
掩码B
end if 

我这样的设计思路不行吗？
 回到顶部
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1106 积分：8977 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2015/1/13 13:19:00 [只看该作者]

解决了。代码如下，分享一下，见笑。

PrepareEdit 事件

'设置掩码
If e.Col.Name="单据号" Then
    Select Case e.Table.Current("工序")
        Case "轧机1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\Z\J\0\10000-00-00-00"
        Case "清洗1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\Q\X\0\10000-00-00-00"
        Case "清洗2号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\Q\X\0\20000-00-00-00"
        Case "连退1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\L\T\0\10000-00-00-00"
        Case "罩退1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\Z\T\0\10000-00-00-00"
        Case "真退1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\K\T\0\10000-00-00-00"
        Case "张矫1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\L\J\0\10000-00-00-00"
        Case "重卷1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\C\J\0\10000-00-00-00"
        Case "纵剪1号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\F\Q\0\10000-00-00-00"
        Case "纵剪2号"
            Tables("生产记录表").grid.Cols("单据号").EditMask="\F\Q\0\20000-00-00-00"
        Case Else
            Tables("生产记录表").grid.Cols("单据号").EditMask="LLLL0000-00-00-00"
    End Select
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.04688 秒, 4 次数据查询