VFP Grid控件游标显示统计问题

问题遇到的现象和发生背景

在做一个资产管理系统，在网上搜了好久，都没找到类似这种能在Grid最后显示统计的方法，请问各位大虾，这个该功能该如何实现丫。网上有个说新建一个函数，调用函数在游标上显示，但是我试过了，不行，程序中无法调用thisform.grid，我试过将其转换成字符，也不行。还有就是VFP的Grid控件的表格线，能否只显示有数据的，其他地方空白，像下图那样。请各位不吝指教。

问题相关代码，请勿粘贴截图
  • 汇总全部数值列到游标
    Local myGrd,lcFields,lcField,lnI,lcFlag
    myGrd = Thisform.myGrd1
    lcFlag = ''
    lcFields = ''
    For lnI=1 To myGrd.ColumnCount
    lcField = Getwordnum(myGrd.Columns(lnI).ControlSource,2,[.])
    If Inlist(Type('&lcField'),'N','I')
    lcFields = lcFields + ',SUM(' + lcField + ') AS ' + lcField
    Else
    If Type('&lcField')='C' And lcFlag == ''
    lcFields = lcFields + ',[-合计-] AS ' + lcField
    lcFlag = '合计OK'
    Endif
    Endif
    If Getwordcount(lcFields,[,]) = 128 && 最多 128 列
    Exit
    Endif
    Endfor
    lcFields = Substr(lcFields,2)
    Select &lcFields From (myGrd.RecordSource) Into Cursor tmp_Total Readwrite
    运行结果及报错内容
我想要达到的结果

img