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


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

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

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看不出什么问题,做个例子测试

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


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

老师:你好!我做了一个扫码录入
With .AddInputCell("ic1") '通过InputCell增加输入框
                .AddLabel("lsj","物料编号",0) '增加标签,0显示在左边
                .AddInput("物料编号","text",1).Attribute = "" '调用js函数'增加输入框,1表示显示在中间               
                
                .AddImage("pim","./images/扫一扫.png",2).Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
            End With      
            .AddInput("物料名称","物料名称","")            
            .AddInput("规格型号","规格型号","")
            .AddInput("单位","单位","")            
            .AddInput("数量","数量","number").Step= "0.01"
            .AddInput("单价","单价","number").Step= "0.01"
            .AddInput("金额","金额","number").Step= "0.01"
           wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('物料编号').value=r;}</script>")  
手工录入物料编号后能自动根据输入框中的物料编号生成物料名称、规格型号 ,手机扫描后物料编号也能输入框中显示,但不会根据输入框中的物料编号生成物料名称、规格型号、单位,请教一下怎样才能实现?

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


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

手机扫描后物料编号放入输入框后调用这里的js函数【.AddInput("物料编号","text",1).Attribute = "" '调用js函数'增加输入框,1表示显示在中间   

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


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

谢谢,老师指点   怎么调用?是不是把   .AddInput("物料编号","text",1).Attribute = "" '调用js函数'增加输入框,1表示显示在中间 在 wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('物料编号').value=r;}</script>")  再写一次


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


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

麻烦老师指点一下扫码成功后怎样再调用js函数'

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


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

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('物料编号').value=r;xxxxjs函数();}</script>")

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


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

谢谢

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


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

老师:你好! 我制作一个流程卡EXL打印模板 怎样把模板中每行根据生产编号生成的二维码放到每行中打印在流程卡上 我写的代码是这样的
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产流程卡.xls")
Dim fl As String = ProjectPath & "Reports\生产流程卡.xls"
'Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) 
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.QRCode
Bar1.BarRatio = 0.3
Bar1.BarHeight = 8
'Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("生产计划主表.生产计划明细表").Rows
    bar1.Code = r("在产品编号")
    img = new prt.RenderImage
    img.Image = bar.GetImage
    'Doc.Body.Children.Add(img)
For i As Integer = 0 To Tables("生产计划主表.生产计划明细表").Rows.Count -1
    Sheet(i+8, 11).Value = img
   Next
Next

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
Wb.Close
App.Quit
End If   
可是打不出来,麻烦老师给予指导,谢谢

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


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

参考:http://www.foxtable.com/webhelp/topics/1951.htm

另外execl版本和专业报表完全是两回事,不能混用它们的代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\生产流程卡.xls")
Dim fl As String = ProjectPath & "Reports\生产流程卡.xls"
'Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) 
For i As Integer = 0 To Tables("生产计划主表.生产计划明细表").Rows.Count -1
Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.QRCode
Bar1.BarRatio = 0.3
Bar1.BarHeight = 8
    bar1.Code = r("在产品编号")
    Sheet(i+8, 11).Value = New XLS.Picture(bar1.GetImage,0,0,100,100)
Next
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
Wb.Close
App.Quit
End If   

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


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

谢谢!


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