关于weui 数值录入框的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师

我的代码如下:

     With wb.AddInputGroup("page2","ipg3","订单明细")
            With .AddInputCell("cp2") '通过InputCell增加输入框
                .AddLabel("lcp","产品名称",0) '增加标签,0显示在左边
                .AddInput("cpmc","text",1)
                .AddVcodeButton("cpcx","查询",2).Attribute= ""
            End With
            .AddInput("pack","包装规格","text").Readonly = True
            With .AddInput("js","件数","number")
                .Min = "0"
            End With
            .AddInput("sl","产品数量","number").Step = "0.0001"
            .AddInput("jg","销售价格","number").Step = "0.000000001"
            .AddInput("je","销售金额","number").Step = "0.01"
        End With
        With wb.AddButtonGroup("page2","qrz", False) '水平排列
            .Add("cjmx", "增加明细")
            .Add("qxmx", "取消明细")
        End With

但为什么件数那里还是可以录入小数,还有金额也可以录入超过2位的小数? 请看图

此主题相关图片如下：b1d9ac53896d762b8f88a8bef906a2e.jpg

这种只是会在浏览器里出现一个提示，无法禁止输入小数点。

添加一个js文件，代码

function keyPress() {

var keyCode = event.keyCode;

if (keyCode == 109 || keyCode == 110 || keyCode == 229) {

event.returnValue = false;

}

else{

event.returnValue = true;

}

代码：

Select Case e.Path

Case "test.htm"

Dim wb As New weui

wb.AddForm("","form1","test.htm")

With wb.AddInputGroup("form1","ipg1","数值输入")

.AddInput("xm","姓名","text")

With .AddInput("sl","年龄","number")

.Min = "18"

.Max = "60"

.Placeholder = "年龄范围为18到60"

.Attribute = "onKeyDown='keyPress()'"

End With

.AddInput("dj","工资","number").Step = "0.01"

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

wb.AppendHTML("<script src='./test.js'></script>",True)

e.WriteString(wb.Build) '生成网页

End Select

[此贴子已经被作者于2020/2/27 13:35:24编辑过]

老师

明白了.测试过. onchage 应该会好用些. 判断值能不能转成整数, 不能就变空. 这样更好用. 多谢老师指点!

主题：关于weui 数值录入框的问题