VFP汇总GRID全部数值列到游标的函数

红楼梦里面说，所有的仆人，老了之后，那双眼睛就会变成死鱼眼。小的时候很不理解，现在在社会上，到处能看到这种没有神采的眼神。

这种神采奕奕的眼睛，却在小朋友的眼晴随处可见，我们到底怎么了？

昨晚上帮一位同学，主持他们一场会议，有一位6岁的小女孩，竟然要主动上台，要唱歌，歌名叫“骁”，我把她送到台上，我蹲下来采访他，那分别是双神彩奕奕的眼睛啊，有灵气。歌也唱得好。

我们成年之后，失去了什么东西？

拥有孩子般的好奇心，所有成功人士的唯一共同之处

保持对这个世界的好奇心，积极主动这个品质，是古往今来，所有成功人士的唯一共同之处。

就是，他们无论遇到任何问题，始终都会思考：在所有影响结果的变量之中，我可以改变哪些变量,让结果变得更好。

而不是抱怨不可改变外部因素，指责、抱怨他人、环境、时代等等。

《人生只有一件事》里说的：人生三件事，自己的事，别人的事，老天的事。我们要关注自己的事，少管别人的事，不管老天的事。

所以，如果我们能把积极主动这个习惯，用到生活中的方方面面，那其实人生就没有烦恼了。

商业模式的明暗两条线

我们写程序有明暗两条线，绝大数的狐友，特别是自学出师的狐友，只会写明线，不会写暗线，当然参加我们社群，我都会细细讲来，一点就透。

而我们的任何商业模式，都有明暗两条线。

这次的会议，甲方叫万盛叫车，他的商业模式明线是结合了滴滴、T3、神州的优点，但是暗线呢？不适在这里说，以后在社群里面猫猫到时会分享。

我们要看懂一个商业模式，一定要从明线看到后面的暗线，才能看到事物的本质。

技术本身从来不值钱，而是替客户解决需求值钱，所以不要停留在语言高不高端，而是看本质，理需求，谈销售。

VFP汇总GRID全部数值列到游标的函数

来自VFP MIX ALL狐友会社群|实易软件梁总分享

* 汇总全部数值列到游标
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

感谢大家来听我的碎碎念