Foxtable(狐表)用户栏目专家坐堂 → 新增订单不能保存和自动输入


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

主题:新增订单不能保存和自动输入

帅哥哟,离线,有人找我吗?
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 15:57:00 [只看该作者]

上传可以测试的实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
qqhealth
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3068 威望:0 精华:0 注册:2018/11/23 10:41:00
  发帖心情 Post By:2019/10/11 13:19:00 [只看该作者]

老师您好,自动输入过程中出现比如“库存”数量列,怎么选取最后一行或数值最小的值。谢谢!代码如下:

With .AddSelect("药品名称","药品名称","")
             .Attribute = "" '调用js函数
        End With
        .AddInput("生产厂家","生产厂家","")
        .AddInput("规格","规格","")
        .AddInput("规格数量","规格数量","number").Readonly = True
        .AddInput("库存","库存","number").Readonly = True
        .AddInput("出库数量","出库数量","").Attribute = ""
        .AddInput("出库","出库","number").Step = "0.01"

图片点击可在新窗口打开查看此主题相关图片如下:1011-3.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 13:52:00 [只看该作者]

dim r as row = tables("表A").rows(tables("表A").rows.count - 1)

或者

dim v as double = tables("表A").compute("min(库存)")

 回到顶部
帅哥哟,离线,有人找我吗?
qqhealth
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3068 威望:0 精华:0 注册:2018/11/23 10:41:00
  发帖心情 Post By:2019/10/14 11:53:00 [只看该作者]

老师您好,这行代码不知这个怎么加进去。函数代码如下,药品库存数量是自动输入的,现在自动输入的库存数量是该药品第一行的库存数量。谢谢!
With .AddSelect("药品名称","药品名称","")
             .Attribute = "" '调用js函数
        End With
        .AddInput("生产厂家","生产厂家","text")
        .AddInput("规格","规格","text")
        .AddInput("规格数量","规格数量","number").Readonly = True
        .AddInput("库存","库存","number").readonly = True

function setCodes2(){
    var result= submitAjaxFileds('getCodes2.htm','','健康室','药品类别','药品名称',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==4){
             document.getElementById("生产厂家").value=vals[0];
            document.getElementById("规格").value=vals[1];
            document.getElementById("规格数量").value=vals[2];
            document.getElementById("库存").value=vals[3];
        }
    }
}


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/14 12:01:00 [只看该作者]

getCodes2.htm代码?

 回到顶部
帅哥哟,离线,有人找我吗?
qqhealth
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3068 威望:0 精华:0 注册:2018/11/23 10:41:00
  发帖心情 Post By:2019/10/14 23:24:00 [只看该作者]

谢谢老师,代码如下:
getCodes2:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim dr As DataRow = DataTables("咨询记录").Find("健康室='" & e.Values("健康室") & "' and 药品类别='" & e.Values("药品类别") & "' and 药品名称='" & e.values("药品名称") & "'")

If dr IsNot Nothing Then
    e.WriteString(dr("生产厂家")& "|" & dr("规格")& "|" & dr("规格数量")& "|" & dr("库存"))
End If

function setCodes2(){
    var result= submitAjaxFileds('getCodes2.htm','','健康室','药品类别','药品名称',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==4){
             document.getElementById("生产厂家").value=vals[0];
            document.getElementById("规格").value=vals[1];
            document.getElementById("规格数量").value=vals[2];
            document.getElementById("库存").value=vals[3];
        }
    }
}



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/15 8:59:00 [只看该作者]

那说明第一行就符合条件的.Find("健康室='" & e.Values("健康室") & "' and 药品类别='" & e.Values("药品类别") & "' and 药品名称='" & e.values("药品名称") & "'")

可能还需要其他条件再区分一下吧

 回到顶部
帅哥哟,离线,有人找我吗?
qqhealth
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3068 威望:0 精华:0 注册:2018/11/23 10:41:00
  发帖心情 Post By:2019/10/15 21:44:00 [只看该作者]

老师您好,增加“日期 desc”后可以了。谢谢!

 回到顶部
总数 18 上一页 1 2