VFP function to summarize all numeric columns of grid to cursor

The dream of Red Mansions says , All the servants , After the old , Those eyes will become dead fish eyes . When I was young, I didn't understand , Now in society , You can see this kind of look everywhere .

These bright eyes , But it can be seen everywhere in children's eyes , What happened to us ？

I helped a classmate last night , Preside over a meeting with them , There is one. 6 A little girl of eighteen , I have to take the initiative to go on stage , To sing , The name of the song is “ Xiao ”, I put her on the stage , I squatted down to interview him , Those are the eyes of two gods , There is aura . The song is also good .

When we grow up , Lost something ？

Have childlike curiosity , The only thing all successful people have in common

Keep curious about the world , The quality of being proactive , From ancient times to modern times , The only thing all successful people have in common .

Namely , Whatever problems they encounter , Always thinking ： Among all the variables that affect the results , What variables can I change , Make the result better .

Instead of complaining about unchangeable external factors , accuse 、 Complain about others 、 Environmental Science 、 Times, etc .

《 There is only one thing in life 》 What I said ： Three things in life , My own business , Other people's business , For heaven's sake . We should pay attention to our own affairs , Mind other people's business , No matter what happens to God .

therefore , If we can put the habit of being proactive , Use it in all aspects of life , In fact, there is no trouble in life .

There are two lines of business model

There are two lines between light and dark when we write programs , The vast majority of fox friends , Especially the fox friends who have taught themselves , Can only write clear lines , Can't write dark lines , Of course, join our community , I will talk about it in detail , Just a little bit .

And any of our business models , Both have light and dark lines .

This meeting , Party A calls Wansheng for a car , His business model clearly combines didi 、T3、 The advantages of China , But the dark line ？ It is not appropriate to say here , In the future, cats will share in the community .

We need to understand a business model , Be sure to see the dark line behind from the open line , To see the essence of things .

Technology itself is never worth money , It is valuable to solve customers' needs , So don't stop at the high end of the language , But to see the essence , Rational demand , Talking about sales .

VFP Summary GRID A function that lists all values into a cursor

come from VFP MIX ALL Fox friends association community | Mr. Liang of Shiyi software shares

*  Summarize all numeric columns to cursor 
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 + ',[- total -] AS ' + lcField
   lcFlag = ' total OK'
  Endif
Endif
If Getwordcount(lcFields,[,]) = 128  &&  most  128  Column 
  Exit
Endif
Endfor
lcFields = Substr(lcFields,2)
Select &lcFields From (myGrd.RecordSource) Into Cursor tmp_Total Readwrite

Thank you for listening to my thoughts
More thoughts http://www.sn58.cn