专家坐堂-[求助]出现这种问题如何解决Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]出现这种问题如何解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68517)

--  作者：czgtiger
--  发布时间：2015/5/19 17:20:00
--  [求助]出现这种问题如何解决

此主题相关图片如下：6g2%1lr@oo@g8jmdf3b}l.png

请高手指点，这是什么问题，如何解决，在局域网中使用时，出现这种情况，

--  作者：Bin
--  发布时间：2015/5/19 17:23:00
--
内存损坏, 局域网使用最好用外部数据源,不要共享项目文件.

重新打开应该就可以了

--  作者：czgtiger
--  发布时间：2015/5/19 17:24:00
--
这个就是使用的外部数据源，主机也重新启动了，分机也重新启动了，还是出现这种情况

--  作者：Bin
--  发布时间：2015/5/19 17:25:00
--
打开就提示? 还是操作什么的时候提示? 点击详细信息看看

--  作者：czgtiger
--  发布时间：2015/5/19 17:27:00
--
是使用程序中的一个窗口，窗口有个打印预览，打印预览是用编码的，不是用EXCEL的，就出现这个问题，以前用时好好的

--  作者：Bin
--  发布时间：2015/5/19 17:27:00
--
代码发出来看看

--  作者：czgtiger
--  发布时间：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
--  发布时间：2015/5/19 17:58:00
--
原因找到了，是主机与分机局域网联接出了问题