以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]掩码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51897)
--  作者：wofeman
--  发布时间：2014/6/5 11:33:00
--  [求助]掩码问题
      我想对规格做个掩码，但是格式可能为12*9.0 或18*10.5，掩码设置为00*0a.0，但是这导致输入12*9.0时显示为12*9_.0,这样明显难以满足要求。这样是否必须采用编写DataColChanging事件代码的方式来解决，代码应该如何编写呢？
      在论坛搜索了一下，似乎类似的问题也有提出过，建议狐爸是否能在下个版本中改善。毕竟直接使用掩码比编写代码要方便的多，执行效率应该也会有所提升。
--  作者：Bin
--  发布时间：2014/6/5 11:39:00
--  
改为 00*0.0
--  作者：有点甜
--  发布时间：2014/6/5 11:42:00
--  
掩码就是要规范输入的，你可以输入12*09.0
--  作者：有点甜
--  发布时间：2014/6/5 11:47:00
--  

datacolchanging，这样判断，参考代码

 

Dim str As String = "12*k2"
Dim ary() As String = str.Split("*")
If ary.Length <> 2 Then
    msgbox("错")
Else
    If Val(ary(0)) = 0 OrElse val(ary(1)) = 0 Then
        msgbox("错")
    Else
        msgbox("ok")
    End If
End If
--  作者：wofeman
--  发布时间：2014/6/5 11:47:00
--  
虽然还是没有解决，但是还是要谢谢两位。毕竟已经确定无法直接使用掩码完成要求，我现在暂时先不设置掩码了，毕竟规格项并不是要求必须按照格式书写，只是想规范一下，看起来舒服一些。等代码水平提高了再用代码解决。谢谢！
[此贴子已经被作者于2014-6-5 11:57:32编辑过]