[求助]关于DIM的代码，如何设置多个？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

首先，我想在窗口的按钮控件A里设置代码，（自动筛选第一列至第五列中最大的数值，并在第六列显示出来），我用了以下这个代码，而且是正常可以用的

Dim max1 As Double=math.max(Tables("表A").CURRENT("第一列"),Tables("表A").CURRENT("第二列"))

Dim max2 As Double=math.max(Tables("表A").CURRENT("第三列"),Tables("表A").CURRENT("第四列"))

Dim max3 As Double=math.max(max1,max2)

Tables("表A").CURRENT("第六列")=math.max(max3,Tables("表A").CURRENT("第五列"))

然后，我想在窗口的按钮控件A里设置代码，（自动筛选第十一列至第十五列中最大的数值，并在第十六列显示出来），我用了以下这个代码，而且是正常可以用的

Dim max1 As Double=math.max(Tables("表A").CURRENT("第十一列"),Tables("表A").CURRENT("第十二列"))

Dim max2 As Double=math.max(Tables("表A").CURRENT("第十三列"),Tables("表A").CURRENT("第十四列"))

Dim max3 As Double=math.max(max1,max2)

Tables("表A").CURRENT("第十六列")=math.max(max3,Tables("表A").CURRENT("第十五列"))

最后，现在我想在窗口的按钮控件A里设置代码，（自动筛选第一列至第五列中最大的数值，并在第六列显示出来，自动筛选第十一列至第十五列中最大的数值，并在第十六列显示出来），我用了以下这个代码，但不能正常使用，提示错误，看截图

Dim max1 As Double=math.max(Tables("表A").CURRENT("第一列"),Tables("表A").CURRENT("第二列"))

Dim max2 As Double=math.max(Tables("表A").CURRENT("第三列"),Tables("表A").CURRENT("第四列"))

Dim max3 As Double=math.max(max1,max2)

Tables("表A").CURRENT("第六列")=math.max(max3,Tables("表A").CURRENT("第五列"))

Dim max4 As Double=math.max(Tables("表A").CURRENT("第十一列"),Tables("表A").CURRENT("第十二列"))

Dim max5 As Double=math.max(Tables("表A").CURRENT("第十三列"),Tables("表A").CURRENT("第十四列"))

Dim max6 As Double=math.max(max4,max5)

Tables("表A").CURRENT("第十六列")=math.max(max6,Tables("表A").CURRENT("第十五列"))

此主题相关图片如下：qq图片20160203211116.png

请问错在哪里？我应该如何修改代码？

主题：[求助]关于DIM的代码，如何设置多个？