- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 上午的更新有一个大的bug，现在已经解决，请重新下载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3900)
-- 发布时间：2009/8/18 13:08:00
-- 上午的更新有一个大的bug，现在已经解决，请重新下载
如题
[此贴子已经被作者于2009-8-18 13:08:27编辑过]
-- 发布时间：2009/8/18 13:14:00
--
好的,下载去
-- 发布时间：2009/8/18 13:25:00
--
http下不了啊 FTP的 不可预料的压缩文件末端？
-- 发布时间：2009/8/18 13:30:00
--
以下是引用yuansq在2009-8-18 13:25:00的发言：
http下不了啊 FTP的 不可预料的压缩文件末端？
呵呵，我还没有上传完，你就开始下了
现在可以了。
-- 发布时间：2009/8/18 13:35:00
--
搞定 呵呵 欣赏中
-- 发布时间：2009/8/18 13:36:00
--
还是存在问题。我原来的项目都是正常的，现在用1：20分左右的新版打开还是出错：
1、竟然报的这个错，我在项目里找遍了也没发现代码在哪里。还有更好的方式来快速找到指定的代码吗？
此主题相关图片如下：1.jpg
2、接着又出这个错：
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
按照提示，我查了代码，发现这个事件设置是在“YS_广告数据”里的，没在“Strat”里啊，为什么报错？
以上两个错误，在老版里是不报的，现在用新版就出来了。请老六查一下。
-- 发布时间：2009/8/18 13:42:00
--
1、可以忽略，3应该判断一下Current是否为空，然后再执行相应的代码，至于2，应该检查一下你的代码，搞不定就上传例子
-- 发布时间：2009/8/18 13:45:00
--
3是已经判断的啊。在老版里都正常的，代码如下：
IF CurrentTable.Current IsNot Nothing
Functions.Execute("Rows") \'动态调整地区版与铜版纸的选择状态及高宽的锁定状态
With CurrentTable
Dim zts as Integer = .Rows.Count
\' Dim pc as Integer = .Aggregate(AggregateEnum.Sum,0,.Cols("广告条数").Index,zts-1,.Cols("广告条数").Index)
Dim mj as Double = .Aggregate(AggregateEnum.Sum,0,.Cols("面积").Index,zts-1,.Cols("面积").Index)
Dim zbs as Double = .Aggregate(AggregateEnum.Sum,0,.Cols("占版数").Index,zts-1,.Cols("占版数").Index)
Dim kl as Double = .Aggregate(AggregateEnum.Sum,0,.Cols("刊例费用").Index,zts-1,.Cols("刊例费用").Index)
Dim ts as Double = .Aggregate(AggregateEnum.Sum,0,.Cols("推算费用").Index,zts-1,.Cols("推算费用").Index)
\' Forms("主窗口").Controls("Label4").Text = "数据记录共 " & zts & " 条, 统计的广告频次 " & pc & " 条, 面积 " & mj & " 平方厘米, 占版数 " & zbs & " 个" & Vars("Jldw") & ",刊例费用 " & kl & " 元, 推算费用 " & ts & " 元"
End With
Else
Forms("主窗口").Controls("Label4").Text = "数据记录为空"
End If
-- 发布时间：2009/8/18 13:47:00
--
看看自定义行数Rows
-- 发布时间：2009/8/18 13:51:00
--
自定义函数Rows的代码如下，代码也都是限定了表的，与“start”表无关：
With CurrentTable
If .Name = "YS_广告数据"
Forms("主窗口").Controls("CheckBox1").Checked = IIf(.Current("是否地区版")="是",True,False)
Forms("主窗口").Controls("CheckBox2").Checked = IIf(.Current("纸质")="铜版纸",True,False)
If .Current("规格").Contains("异型")
.Cols("高").AllowEdit = True
.Cols("宽").AllowEdit = True
Else
.Cols("高").AllowEdit = False
.Cols("宽").AllowEdit = False
End If
End If
End With
[此贴子已经被作者于2009-8-18 13:52:18编辑过]