Foxtable(狐表)用户栏目专家坐堂 → [求助][讨论]网页上日期引用


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

主题:[求助][讨论]网页上日期引用

帅哥哟,离线,有人找我吗?
nths
  21楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/14 15:57:00 [只看该作者]

老师:你好!这bar1.Code = r("在产品编号")  中r 怎样申明变量

 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

bar1.Code = Tables("生产计划主表.生产计划明细表").Rows(i)("在产品编号")

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


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/19 12:03:00 [只看该作者]

老师:你好!
With .AddInputCell("ic1",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
            .AddLabel("lmm","前道转入数量",0) '增加标签,0显示在左边
           With .AddInput("前道转来数量","number",1)
.Step="0.01"'增加输入框,1表示显示在中间
.Required = True
 End With  
End With 
这段代码怎样改写,才能实现 '前道转入数量“和输入的数量字体颜色为绿色不为红色     

 回到顶部
帅哥,在线噢!
有点蓝
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/19 13:38:00 [只看该作者]

With .AddInputCell("ic1",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
    .Attribute = "style='color:green'"
     .AddLabel("lmm","前道转入数量",0) '增加标签,0显示在左边

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


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/20 8:57:00 [只看该作者]

谢谢老师指导!


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


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/20 9:10:00 [只看该作者]

老师;你好!再请教一下,我有两个页页面分别是:scwgd.htm和ygcl.htm 代码分别是Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
Dim wb As New weui
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
'wb.AppendLine("<link rel='stylesheet' href='./css/test.css'/>")
If e.PostValues.Count = 0 Then
    wb.AddForm("","form1","scwgd.htm")
    With wb.AddInputGroup("form1","ipg1","增加完工单")
        .AddInput("日期","完工日期","date").Value = Date.Today
        .AddSelect("班次","班次","|日班|夜班")
        With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("流程卡卡号","流程卡卡号",0)  '增加标签,0显示在左边
            .AddInput("在产品编号","text",1).Attribute = "" '调用js函数'增加输入框,1表示显示在中间
            .AddImage("pim","./images/扫一扫.png",2).Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
        End With
        wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('在产品编号').value=r;asetCodes();}</script>")
        .AddInput("生产部门","生产部门","Text").Readonly = True
        .AddInput("客户编码","客户编码","Text").Readonly = True
        .AddInput("客户名称_父名","客户父名","Text").Readonly = True
        .AddInput("客户名称_子名","客户子名","Text").Readonly = True
        .AddInput("规格型号","规格","Text").Readonly = True
        .AddInput("成品编号","成品编号","Text").Readonly = True
        .AddInput("花号","花号","Text").Readonly = True
        .AddInput("前道工序","前道工序","Text").Readonly = True
        .AddInput("前道制品编号","前道制品编号","Text").Readonly = True
        With .AddInputCell("ic1",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.Attribute = "style='color:green'"
            .AddLabel("lmm","前道来数",0) '增加标签,0显示在左边

            With .AddInput("前道转入数量","number",1)
                .Step="0.01"'增加输入框,1表示显示在中间
                .Required = True
            End With
           
        End With
  

With wb.AddListGroup("", "form2","")
            .Add("c1","员工产量", "进入","ygcl.htm","")
            .Add("c2","物料耗用","进入", "","")
End With
          End With
    
    wb.AppendHTML("<script src='./lib/abjaxform.js'></script>") '引入脚本文件
    
    wb.AppendHTML("<script src='./lib/brands.js'></script>")
    wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "确定", "submit")
        .Add("btn2", "退出","", "scgl.htm").Kind = 2
    End With
    
    
    e.WriteString(wb.Build)
Else
    Dim nms() As String = {"日期","班次","生产部门","前道工序","工序名称","客户编码","客户名称_父名","客户名称_子名","规格型号","前道制品编号","前道转入数量","前道A字架床号","在产品编号","数量","A字架床号","成品编号","花号","机台号"}
    Dim dr As DataRow = DataTables("完工表").AddNew()
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    dr.save()
    With wb.AddMsgPage("","msgpage","增加成功","安全生产,争创第一") '生成成功提示页
        .AddButton("btn1","继续增加","scwgd.htm")
    End With
    
    e.WriteString(wb.Build)
End If
    wb.AddForm("","form1","ygcl.htm")
    With wb.AddInputGroup("form1","ipg1","员工产量录入")
        .AddInput("日期","完工日期","date").Value = Date.Today
.AddInput("单号","单号","Text").Readonly = True
        .AddInput("生产部门","生产部门","Text").Readonly = True
        .AddInput("工序名称","工序名称","Text").Readonly = True
 .AddSelect("班次","班次","|日班|夜班")
 .AddInput("客户名称_父名","客户父名","Text").Readonly = True
        .AddInput("规格","规格","Text").Readonly = True
.AddInput("工位","工位","Text").Readonly = True
.AddInput("姓名","姓名","Text").Readonly = True
       
   
        With .AddInputCell("ic1") '通过InputCell增加输入框, 2表示突出显示(含图标)
            .AddLabel("lmm","产量",0) '增加标签,0显示在左边
            With .AddInput("产量","number",1)
                .Step="0.01"'增加输入框,1表示显示在中间
                .Required = True
            End With
            .AddImage("pim","./images/提示.png",2)
        End With
    End With
    
    wb.AppendHTML("<script src='./lib/abjaxform.js'></script>") '引入脚本文件
    
    wb.AppendHTML("<script src='./lib/brands.js'></script>")
    wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "确定", "submit")
        .Add("btn2", "退出","", "scwgd.htm").Kind = 2
    End With
    
    
    e.WriteString(wb.Build) 
怎样实现进入ygcl.htm后能把scwgd.htm的“生产部门”、”客户名称“、”规格“自动带入到ygcl.htm“生产部门”、”客户名称“、”规格“
谢谢老师的指导 !

 回到顶部
帅哥,在线噢!
有点蓝
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 9:52:00 [只看该作者]

.Add("c1","员工产量", "进入","ygcl.htm","")
改为
.Add("c1","员工产量", "进入","").Attribute = "onclick=""submitAjaxFileds('ygcl.htm','生产部门','客户名称','规格');"""

[此贴子已经被作者于2020/5/20 9:54:09编辑过]

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


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/20 10:30:00 [只看该作者]

谢谢老师指教!

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


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/5/20 15:33:00 [只看该作者]

老师你好!按照你的代码 还是没有实现进入ygcl.htm后能把scwgd.htm的“生产部门”、”客户名称“、”规格“自动带入到ygcl.htm“生产部门”、”客户名称“、”规格“

 回到顶部
帅哥,在线噢!
有点蓝
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 15:52:00 [只看该作者]

With wb.AddListGroup("form1", "lsg1","")
    .Add("c1","员工产量", "进入","").Attribute = "color: rgb(255, 0, 0);">','','生产部门','客户名称','规格');"""
    .Add("c2","物料耗用","进入", "","")
End With

 回到顶部
总数 129 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..13