如何控制datawindow列输入字符的长度，并自动截取多余字符

weixin_39679293

于 2019-12-30 16:36:43 发布

阅读量382

点赞数

分类专栏： PB 数据库文章标签： datawindow

本文链接：https://blog.youkuaiyun.com/weixin_39679293/article/details/103768751

版权

定义实例的变量

string is_input_char
Long il_Limit

在ITEMCHANGED事件中增加如下代码

//fujinke 2019-12-31 add start   控制输入字符的长度
   case upper('supplier_id')
       Long ll_Ret,ll_Pos
       String ls_ColType
       ls_ColType = dwo.ColType
       ls_ColType="char(10)"
       IF Left(ls_ColType,4) = 'char' THEN
            ll_Pos = Pos(ls_ColType,')')
            IF ll_Pos > 0 THEN
               il_Limit = Long(Mid(ls_ColType,6,Len(ls_ColType) - 6))
               IF LenA(Data) > il_Limit THEN
                   is_input_char=Data
                    MessageBox('系统信息','所输入的内容超过限制长度!~r~n当前字段允许输入' + String(il_Limit) + '个字节长度的字符，约合' + String(Long(il_Limit / 2)) + '个汉字!')
                   post event ue_trunc_char() //截取多余的字符
               END