主题：上午的更新有一个大的bug，现在已经解决，请重新下载

如题

好的,下载去

呵呵，我还没有上传完，你就开始下了
现在可以了。

还是存在问题。我原来的项目都是正常的，现在用1：20分左右的新版打开还是出错：

1、竟然报的这个错，我在项目里找遍了也没发现代码在哪里。还有更好的方式来快速找到指定的代码吗？

此主题相关图片如下：1.jpg


2、接着又出这个错：

此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

按照提示，我查了代码，发现这个事件设置是在“YS_广告数据”里的，没在“Strat”里啊，为什么报错？

以上两个错误，在老版里是不报的，现在用新版就出来了。请老六查一下。

1、可以忽略，3应该判断一下Current是否为空，然后再执行相应的代码，至于2，应该检查一下你的代码，搞不定就上传例子

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

看看自定义行数Rows

自定义函数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