新添加一个表格grid1,只设置如下属性：grid1.columncount=4;grid1.rowheight=35;grid1.column1.width=120,如图：

可执行后，却如下图：


为什么不一样了？

是下面的代码影响到了：

 Local lnHeight, lnWidth, lnHeightdiff, lnWidthdiff
    lnHeight=768    &&这是开发环境下的分辨率
    lnWidth=1366
    lnHeightdiff=0
    lnWidthdiff=0
IF SYSMETRIC(2)<>lnHeight OR SYSMETRIC(1)<>lnwidth   && 如果目前不是运行于1366*768 分辩率下
     lnHeightdiff=SYSMETRIC(2)/lnHeight
     lnWidthdiff=SYSMETRIC(1)/lnWidth
     THIS.Height=THIS.height*lnHeightdiff
     THIS.Width=THIS.Width*lnWidthdiff
     THIS.Top=THIS.Top*lnHeightdiff
     THIS.Left=THIS.Left*lnHeightDiff
         FOR i = 1 to THIS.ControlCount
             WITH THIS.controls(i)
            
                 IF TYPE(".Height") # "U"&& 这个 IF 确保控件拥有 这个 属性
                  .Height=.Height*lnHeightdiff
                  .Width=.Width*lnWidthdiff
                  .Top=.Top*lnHeightdiff
                  .Left=.Left*lnWidthdiff
                 ENDIF
                  
                 IF TYPE(".FontSize") # "U"&& 这个 IF 确保控件拥有 FontSize 属性
                     .FontSize=.Fontsize*((.5*lnWidthdiff)+(.5*lnHeightdiff))  
                 ENDIF
             ENDWITH
         ENDFOR
ENDIF

单击其中任意一表格时，获取不到焦点，也就是没有任何反应