Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]出现这种问题如何解决


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

主题：[求助]出现这种问题如何解决
帅哥哟，离线，有人找我吗？
czgtiger
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00 		[求助]出现这种问题如何解决  发帖心情 Post By：2015/5/19 17:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：6g2%1lr@oo@g8jmdf3b}l.png
图片点击可在新窗口打开查看
请高手指点，这是什么问题，如何解决，在局域网中使用时，出现这种情况，
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/19 17:23:00 [只看该作者]

内存损坏, 局域网使用最好用外部数据源,不要共享项目文件.

重新打开应该就可以了
 回到顶部
帅哥哟，离线，有人找我吗？
czgtiger
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00 		  发帖心情 Post By：2015/5/19 17:24:00 [只看该作者]

这个就是使用的外部数据源，主机也重新启动了，分机也重新启动了，还是出现这种情况
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/19 17:25:00 [只看该作者]

打开就提示? 还是操作什么的时候提示? 点击详细信息看看

 回到顶部
帅哥哟，离线，有人找我吗？
czgtiger
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00 		  发帖心情 Post By：2015/5/19 17:27:00 [只看该作者]

是使用程序中的一个窗口，窗口有个打印预览，打印预览是用编码的，不是用EXCEL的，就出现这个问题，以前用时好好的
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/19 17:27:00 [只看该作者]

代码发出来看看

 回到顶部
帅哥哟，离线，有人找我吗？
czgtiger
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00 		  发帖心情 Post By：2015/5/19 17:35:00 [只看该作者]

Dim doc As New Printdoc
Dim rx As prt.RenderText
Dim rt As prt.RenderTable
Dim i As Integer
rx = New prt.RenderText
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Style.TextAlignVert = prt.AlignVertEnum.Center
rx.Style.FontSize = 20
rx.Style.FontBold = True
rx.Style.Spacing.Bottom = 2
rx.Text = Tables("公司名称表").current("公司名称")
doc.Body.Children.Add(rx)
rx = new prt.rendertext
rx.text ="色卡花型管理(供应商)"
rx.style.textalignhorz = prt.alignhorzenum.center
rx.style.textalignvert = prt.alignvertenum.center
rx.style.fontsize =12
rx.style.fontbold = True
rx.style.spacing.bottom = 2
Doc.body.children.add(rx)
rt = New prt.RenderTable
rt.width = 180
rt.Style.TextAlignHorz = prt.AlignHorzEnum.center
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.CellStyle.Spacing.All = 1
rt.Style.GridLines.all = New prt.Linedef(0.01,Color.black)
rt.Cells(0,0).Text = "订单编号"
rt.cells(0,0).spancols = 9
rt.Cells(1,0).Text = Tables("订单主表").current("订单编号")
rt.cells(1,0).spancols = 9
rt.cells(0,9).spancols = 5
rt.cells(0,9).text = "打色时间"
rt.cells(0,9).spancols =5
rt.cells(0,14).text= Tables("订单主表").current("色卡起始时间")
rt.cells(0,14).spancols = 7
rt.cells(1,9).spancols =5
rt.cells(1,9).text = "完成时间"
rt.cells(1,14).spancols =7
rt.cells(1,14).text = Tables("订单主表").current("色卡完成时间")
rt.cells(0,21).spancols = 4
rt.cells(1,21).spancols = 4
rt.cells(0,21).text = "业务员"
rt.cells(1,21).text ="供应商"
rt.cells(0,25).spancols = 5
rt.cells(1,25).spancols =25
rt.cells(0,25).text = Tables("订单主表").current("担当")
rt.cells(1,25).text = Tables("订单主表").current("供应商")
rt.cells(0,30).spancols = 6
rt.cells(0,30).text ="客户订单号"
rt.cells(0,36).spancols = 14
rt.cells(0,36).text = Tables("订单主表").current("客户订单号")
rt.cells(2,0).spancols = 50
rt.cells(2,0).spanrows = 2
rt.cells(2,0).text = "产品基本信息"
rt.cells(2,0).style.fontsize = 10
rt.cells(2,0).style.fontbold =True
rt.cells(4,0).spancols = 5
rt.cells(4,0).text = "产品名称"
rt.cells(4,5).spancols = 20
rt.cells(4,5).text = Tables("订单主表").current("产品名称")
rt.cells(4,25).spancols = 5
rt.cells(4,25).text = "产品成份"
rt.cells(4,30).spancols= 20
rt.cells(4,30).text = Tables("订单主表").current("成份")
rt.cells(5,0).spancols = 5
rt.cells(5,0).text = "纱支"
rt.cells(5,5).spancols = 16
rt.cells(5,5).text = Tables("订单主表").current("纱支")
rt.cells(5,21).spancols =4
rt.cells(5,21).text = "克重"
rt.cells(5,25).spancols = 6
rt.cells(5,25).text = Tables("订单主表").current("克重")
rt.cells(5,31).spancols =4
rt.cells(5,31).text ="幅宽"
rt.cells(5,35).spancols = 6
rt.cells(5,35).text = Tables("订单主表").current("幅宽")
rt.cells(5,41).spancols = 4
rt.cells(5,41).text = "密度"
rt.cells(5,45).spancols = 5
rt.cells(5,45).text = Tables("订单主表").current("密度")
rt.cells(6,0).spancols = 50
rt.cells(6,0).spanrows = 2
rt.cells(6,0).text = "颜色花型"
rt.cells(6,0).style.fontsize = 10
rt.cells(6,0).style.fontbold = True
rt.cells(8,0).spancols = 25
rt.cells(8,0).text = "客户颜色花型号"
rt.cells(8,25).spancols = 25
rt.cells(8,25).text = "本司颜色花型号"
With Tables("订单主表.色卡手括样表.打样颜色表")
    For r As Integer = 0 To .Rows.Count - 1 '遍历关联表每一行
        rt.Cells(r+9,0).Text = .rows(r)("客户颜色花型号")
        rt.cells(r+9,0).spancols = 25
        rt.Cells(r+9,25).Text = .rows(r)("本司颜色花型")
        rt.cells(r+9,25).spancols = 25
           Next
End With
Doc.body.children.add(rt)
rt = new prt.rendertable
rt.width = 180
rt.Style.TextAlignHorz = prt.AlignHorzEnum.center
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.GridLines.all = New prt.Linedef(0.01,Color.black)
rt.CellStyle.Spacing.All = 1
rt.cells(0,0).spancols = 50
rt.cells(0,0).spanrows =2
rt.cells(0,0).text = "颜色要求"
rt.cells(2,0).spancols = 15
rt.cells(2,0).text = "对色光源"
rt.cells(2,15).spancols = 25
rt.cells(2,15).text="色牢度要求"
rt.cells(2,40).spancols = 10
rt.cells(2,40).text = "PH值要求"
rt.cells(3,0).spancols =10
rt.cells(3,0).text = "D65"
rt.cells(3,10).spancols = 5
rt.cells(3,10).text = Tables("订单主表.色卡手括样表").current("D65")
rt.cells(4,0).spancols = 10
rt.cells(4,0).text = "CWF"
rt.cells(4,10).spancols = 5
rt.cells(4,10).text = Tables("订单主表.色卡手括样表").current("CWF")
rt.cells(5,0).spancols = 10
rt.cells(5,0).text = "UV"
rt.cells(5,10).spancols = 5
rt.cells(5,10).text = Tables("订单主表.色卡手括样表").current("UV")
rt.cells(6,0).spancols = 10
rt.cells(6,0).text = "TL84"
rt.cells(6,10).spancols = 5
rt.cells(6,10).text = Tables("订单主表.色卡手括样表").current("TL84")
rt.cells(7,0).spancols = 10
rt.cells(7,0).text = "A"
rt.cells(7,10).spancols = 5
rt.cells(7,10).text = Tables("订单主表.色卡手括样表").current("A")
rt.cells(3,15).spancols = 10
rt.cells(3,15).text = "水洗色牢度"
rt.cells(3,25).spancols = 15
rt.cells(3,25).text = Tables("订单主表.色卡手括样表").current("水洗色牢度")
rt.cells(4,15).spancols = 10
rt.cells(4,15).text = "干洗色牢度"
rt.cells(4,25).spancols = 15
rt.cells(4,25).text = Tables("订单主表.色卡手括样表").current("干洗色牢度")
rt.cells(5,15).spancols = 10
rt.cells(5,15).text = "干摩擦色牢度"
rt.cells(5,25).spancols = 15
rt.cells(5,25).text = Tables("订单主表.色卡手括样表").current("干摩擦色牢度")
rt.cells(6,15).spancols = 10
rt.cells(6,15).text = "湿摩擦色牢度"
rt.cells(6,25).spancols = 15
rt.cells(6,25).text = Tables("订单主表.色卡手括样表").current("湿摩擦色牢度")
rt.cells(7,15).spancols = 25
rt.cells(3,40).spancols =10
rt.cells(3,40).spanrows = 5
rt.cells(3,40).text = "4.5<PH值<7.5"
rt.cells(8,0).spancols = 50
rt.cells(8,0).spanrows = 2
rt.cells(8,0).text = "其它要求"
Doc.body.children.add(rt)
'=======================================================
rt = new prt.rendertable
rt.width = 180
rt.Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Style.TextAlignVert = prt.AlignVertEnum.Top
rt.Style.GridLines.all = New prt.Linedef(0.01,Color.black)
 rt.CellStyle.Spacing.All = 1
rt.cells(2,0).spancols = 50
'rt.cells(2,0).spanrows =200
rt.cells(2,0).text  = Tables("订单主表.色卡手括样表").current("备注")
Doc.body.children.add(rt)
doc.preview
 回到顶部
帅哥哟，离线，有人找我吗？
czgtiger
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00 		  发帖心情 Post By：2015/5/19 17:58:00 [只看该作者]

原因找到了，是主机与分机局域网联接出了问题
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询