以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个非常奇怪的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71586)

--  作者:blackzhu
--  发布时间:2015/7/14 14:15:00
--  一个非常奇怪的问题
第一个问题:   上次我做窗口设计时,在外部导入一个窗口,这个窗口里面有个表控件,在表控件的darwcell里面我有一段代码,导入后我就删除了.在预览和应用我测试的好好的一点问题都没有,但是发布后,在我自己的机器上测试没有问题,但是到了其他机器上,那段删除的代码居然一直在运行 一直提示错误.不得已我只能删除那个表控件重新做了一个才给解决.


第二个问题也是发布前和发布后会造成不同.

在其他机器上我用发布后的项目执行的结果只有两条数据:


图片点击可在新窗口打开查看此主题相关图片如下:0_nf5(}95zkvfeal)q.png
图片点击可在新窗口打开查看

但是我删除了他们生成的数据,又重新执行一遍,生成的数据需要54条(我的是正确的,开发的状态)


图片点击可在新窗口打开查看此主题相关图片如下:i3@8kg51450zrp9meo$$3.jpg
图片点击可在新窗口打开查看


 这个是有可能是什么原因造成的!


[此贴子已经被作者于2015/7/14 14:16:20编辑过]

--  作者:狐狸爸爸
--  发布时间:2015/7/14 14:21:00
--  
1、第一个问题,通常是是bin目录下的文件没有同步更新造成的
2、可以自己调试分析一下,发布后的程序一样可以用MessageBox调试,只是每次都要先编译一次后再执行,原理是一样的。

--  作者:blackzhu
--  发布时间:2015/7/14 14:25:00
--  
第一个问题 我bin 文件夹删除 N多次 但是无解


第二个问题 调试什么  代码 还是? 如果是代码 我测试过N多次了. 但是发布了就有这个问题 我这边开发状态下就没有问题

--  作者:blackzhu
--  发布时间:2015/7/14 14:26:00
--  
只要他们执行不对的结果 我这边重新执行下 就一点问题都没有.  代码很简单


Dim dt As DataTable =DataTables("BOM分解")
Dim ln As String = Args(0)
Dim s As Integer = Args(1)
Dim cs As Integer= 0
Dim Arys As List(Of String())
Arys = dt.GetValues("每套数量|图号|产品名称|版本|规格型号|表面效果|单位|计划路线","上级=\'" & ln & "\'")
For Each Ary As String() In Arys
    Dim count As Integer= CDbl(Ary(0)) * s
    Dim drr As DataRow = DataTables("分解").Find("图号=\'" & Ary(1) & "\'")
    If drr Is Nothing Then
        drr = DataTables("分解").AddNew
        drr("生产计划号")=Args(2)
        drr("生产图号")=Args(3)
        drr("图号")= Ary(1)
        drr("产品名称")=Ary(2)
        drr("版本")=Ary(3)
        drr("规格型号")=Ary(4)
        drr("表面效果")=Ary(5)
        drr("单位")=Ary(6)
        drr("计划路线")=Ary(7)
    End If
    drr("零件数量")+=count
    Functions.Execute("Count",Ary(1),Count,Args(2),Args(3))
Next
Return Nothing

就这么一段代码

--  作者:大红袍
--  发布时间:2015/7/14 14:35:00
--  

第一个问题:既然不行,就删除表控件重新加入;

 

第二个问题:传入的参数必须一致,Bom表已加载的内容,也必须一致

 

Dim dt As DataTable =DataTables("BOM分解")

Dim ln As String = Args(0)
Dim s As Integer = Args(1)

--  作者:blackzhu
--  发布时间:2015/7/14 14:38:00
--  
老大 怎么可能不一致呢  只是发布前和后生成的结果不一样 代码一模一样的呀

他生成的结果是两条  我生成是54条 我的是对的,他的不对.他的是发布后 我的是发布前的 仅此而已

[此贴子已经被作者于2015/7/14 14:38:38编辑过]

--  作者:大红袍
--  发布时间:2015/7/14 14:40:00
--  
以下是引用blackzhu在2015/7/14 14:38:00的发言:
老大 怎么可能不一致呢  只是发布前和后生成的结果不一样 代码一模一样的呀

他生成的结果是两条  我生成是54条 我的是对的,他的不对.他的是发布后 我的是发布前的 仅此而已

[此贴子已经被作者于2015/7/14 14:38:38编辑过]

 

有可能不同用户登陆,权限不同,传输执行的代码也不同。

 

而且,还可能表加载的内容多少也不同。


--  作者:大红袍
--  发布时间:2015/7/14 14:40:00
--  
 加入msgbox调试。
--  作者:blackzhu
--  发布时间:2015/7/14 14:52:00
--  
跟权限不搭界的.我自己加了msgbox 调试很正常. 奇怪了
[此贴子已经被作者于2015/7/14 14:56:59编辑过]

--  作者:大红袍
--  发布时间:2015/7/14 14:55:00
--  
 那你加入msgbox调试