fpspread 葵花宝典
葵花宝典口诀
葵花宝典口诀
葵花宝典口诀是一套由查验和记忆组成的武术体系，包含了功夫的基本要素，如内家功夫、外家拳术、散打、自卫技术等。
它主要由中国传统武术大师张三丰所创造，以及后来者改进而来，旨在培养学习者身心灵的健康，并促进其对传统武术的继承与发展。
葵花宝典口诀核心内容：
1. 内家功夫：拳拳到底，虚实相生，出拳精准，力量足够；
2. 外家拳术：以眼运气，先招后枪，注意均衡，轻力胜过重力；
3. 散打：勇往直前，灵活应变，身法轻灵，虚实相济；
4. 自卫技术：反击精准，力量充沛，运动协调，使用正确的技巧。
葵花宝典[1]
![葵花宝典[1]](https://img.taocdn.com/s3/m/0b74efc158f5f61fb73666a1.png)
一个好的业务员的基本素质要法作为一个好的业务员，无论工作在哪个行业，他都应具有两个基本素质:1、业务员除了睡觉就是工作。
作为步步高的业务人员，肩规范售点、维护网络的重要使命。
工作职责包括销售、回款、上柜组合、主推、营业员培训、POP、价格与促销等诸多复杂与烦琐的工作，要处理好这些工作，协调好各方的关系，为客户提供优质的服务，使整修市场良好、健康的发展，需要投入巨大的精力与时间，所以形象的说：“好业务员除了睡觉就是工作，一点也不过分。
2、业务员是靠两只脚走出来的，在这基础上才能有技巧、技能和提升空间。
业务员的办公室不是在房间里，而是在市场上，在客户的售点里;业务员的工作是“听、说、做”三位一体，只有在不断的拜访客户中实实在在的为客户解决实际中的问题，建立良好的客户关系，使客户主推，巩固我们的销售网络，才会有点点滴滴的生意增长，最后累积到销量的大提升。
也只有这样，才能不断的实践中积累经验，提高工作能力。
提高解决问题的能力，才能有技巧、技能的提高和与提升空间。
销售人员的工作充满了挑战，但只有他具备了以上两个基本素质，他才能克服困难，走向成功!业务人员考评表此考评时间段为自至经理姓名总分一、工作业绩二、工作技能备注：表中优=5分良=3分中=2分差=0分代理商考察项目地区：代理商：考察人：日期：为了确保派驻别动队的地方，能有效地配合当场代理商，进行各项业务的开展，以达到改善代理组织机构，经营观念和提升业绩的目的，特制定此项考察表，以供别动队成员考察时进行全面细致的了解。
1、我是谁学习意愿强学习意愿强学习意愿强弱弱弱弱强弱强强弱能力能力能力(一)特征(二)结论(三)改善方案2、团队对人的高对人的高对人的强重视低重视低重视弱对生产力的重视对生产力的重视对生产力的重视(一)特征(二)结论(三)改善方案3、时间(事件)管理要要要不急紧急不急紧急不急紧急(一)特征(二)结论(三)改善方案4、代理商管理代理商配合强代理商配合强代理商配合弱弱低高低高低高社商份额社商份额社商份额(一)特征(二)结论(三)改善方案5、商店配合强配合配合强程度弱程度弱程度弱 少多 少多 少多 销量销量销量(一)特征(二)结论(三)改善方案6、客户决策人意愿意愿强意愿弱 弱强 弱强 弱强 对业务的熟悉程度对业务的熟悉程度对业务的熟悉程度(一)特征(二)结论(三)改善方案7、竞争分析竞争强配合程度强竞争强弱弱弱少多少多少多销量销量销量(一)特征(二)结论(三)改善方案8、分销管理意愿强管理水平强管理水平弱弱少多少多少多分销分销分销(一)特征(二)结论(三)改善方案9、工作投入方向个人影响力强个人影响力个人影响力强弱弱弱对成功的贡献对成功的贡献对成功的贡献(一)特征(二)结论(三)改善方案10、下属管理能力的适应性强能力的适应性强能力的适应性强弱弱弱少多强弱强弱价值观的适应性价值观的适应性价值观的适应性。
Flash应用之葵花宝典
众所周知，“葵花宝典”是金庸名著《笑傲江湖》中的顶尖武术秘笈，Ｆｌａｓｈ作为动画制作软件中的佼佼者集万千宠爱于一身，当然也有许多玄妙之处。
不过要修炼成ＦＩａｓｈ高手，代价远没有“葵花宝典”那么恐怖：）Ｆｌａｓｈ应用之葵花文／ＩＩ，渔制作透明图片首先在Ｆｌａｓｈ５中导入需要的图片，然后把它寻散，方法是：选择菜单上的“Ｍｏｄｉｆｙ（修改）／ＢｒｅａｋＡｐａｒｔ（分解组件）“命令；单击“套索工具”按钮ｊ霸，在工具栏下面的“套索工具”选项中，单击“魔术棒属性”按钮粼；在弹出的ＭａｇｉｃＷａｎｄＳｅｔｔｉｎｇｓ（魔术棒属性设置）对话框中，设置Ｔｈｒｅｓｈｏｌｄ（限度），比如设为５０；在Ｓｍｏｏｔｈｉｎｇ（平滑）下拉列表框中，选择Ｓｍｏｏｔｈ（平滑），如图１所示。
设置好了以后，单击“魔术棒”工具鬟，在图片中需要去除背景的部分单击鼠标，然后按Ｄｅｌｅｔｅｉｌ童就可以去掉背景色了。
图１把Ｆｌａｓｈ动画导出成动态的Ｇｉｆ图片首先在Ｆｌａｓｈ５中制作好动画；然后选择菜单栏上的“Ｆｉｌｅ（文件）／ＥｘｐｏｒｔＭｏｖｉｅ（导出影片）”命令导出影片。
在弹出的对话框中，给它输入一个文件名，在文件的保存类型中，设置它的保存类型为Ａｎｉ—ｍａｔｅｄＧＩＦ（＊．ｇｉｆ）形式就可以了，如图２所示。
图２从Ｆｌａｓｈ电影文件中还原素材使用工具：ＳＷＦＢｒｏｗｓｅｒ。
可以从ｆｔｐ：／／ｗｗｗ．ｎｅｗｈｕａ．ｃｏｍ／ＳＷＦＢｒｏｗｓｅｒ２９３．ＥＸＥ或ｈｔｔｐ：／／ｓｏｆｔｗａｒｅ．ｓｔｉｎｆｏ．ｎｅｔ／ｄｏｗｎｌｏａｄ．ａｓｐ？ｉｄ＝２５７９处下载。
操作方法：启动ＳＷＦＢｒｏｗｓｅｒ后，选中ＳＷＦ文件，单击预览窗口上方的“ＳＷＦ分析状态”（ＳＷＦｐａｒｓｅｒｓｔａｔｕｓ）或选择“工具（Ｔｏｏｌｓ）／粘贴当前电影（ＰａｒｓｅＣｕｒｒｅｎｔＭｏｖｉｅ）”命令；稍等片刻，便可分解出ＳＷＦ中的声音事件（ＳｏｕｎｄＥｖｅｎｔｓ）、声音流（Ｓｏｕｎｄｓｔｒｅａｍｓ）、图片（Ｇｒａｐｈｉｃ）和影片剪辑（Ｍｏｖｉｅｃｌｉｐ），以及ＳＷＦ文件的内部结构（ＳＷＦＩｎｔｅｒｎａｌ），并可将它们单独保存下来，如图３所示。
葵花宝典
葵花宝典欲练神功，挥刀自宫；炼丹服药，内外齐通。
今练气之道，不外存想导引，渺渺太虚，天地分清浊而生人，人之练气，不外练虚灵而涤荡昏浊，气者命之主，形者体之用。
天地可逆转，人亦有男女互化之道，此中之道，切切不可轻传。
修炼此功，当先养心，令心不起杂念，超然于物外方可，若心存杂念，不但无功，反而有性命之忧。
【上部练气】欲练神功，引刀自宫。
若不自宫，功起热生。
热从身起，身燃而生。
由下窜上，燥乱不定。
即便热止，身伤不止。
自宫以后，真气自生。
汇入丹田，无有制碍。
气生之法，思色是苦。
厌苦舍离，以达性静。
性静以后，手若拈花。
气绕任脉诸穴，方汇丹田。
气成之后，人若新生，妙及无比。
再配性淡之食草。
如木耳、草菇、冬瓜、薯类等，练药而食。
此功一成，出手如雷。
招式何用？随手一招，敌不及防，即是杀招。
【下部练剑】所谓剑法，无招为上，然须有招。
招若如雷，以简为胜，繁则无速。
而和出手，为有路数，静身而站。
上下左右，斜左右上，斜左右下。
是为八路，而为一面，面转一周。
九分概全，故七十二路。
而敌之杀手，只在一招。
激拨后刺，化守为功。
敌有千招，我只七十二拨。
由此便及十方。
方位之换，靠速不靠招。
以最短之距，出最简之招。
简而说之，即为上拨下拨。
左拨右拨，斜上左右拨，斜下左右拨。
然后，随敌之换位，角度转换。
再如此拨。
一周转九次，便已走了四面八方。
然以速取胜，谈何容易，凌厉之气，极难练成。
天下之间，我未曾见。
惟靠自己悟之。
就算如此，七十二拨，亦算剑法。
不过化破绽于周身而已。
无招即是招，招式启可忽视。
【炼丹】葵花第一重天地阳气生时，在于子午二时，当是此时，应定心圆气，舍却心中杂念，存想天女捧香而至，气自丹田而生。
经右肾旋而下右足，由足后反上右胁下，至右手，过肩井循颈入耳至脑后下，左耳复过肩井下左手反左胁下腰由左肾下左足，循足上行复还丹田。
其间凡身体有颤动之处，则右以左手按之，左以右手按之，其间存想天女按之，但觉两耳如鼓，华池液满，分三次咽下，前后共反复三十六次，功行百日，可颜如婴童！（若心存杂念，则心动而气乱，非但无功，反而会失精失色，面目干涸。
葵花宝典_中企网经典文章_精品文章_文章管理_三石工作室
市场计划能否实施、实现，达成既定的目标，产生市场推动力，关键在于市场人员的真功夫。相传《葵花宝典》以九招内力运行见真力，作为IMC（整合营销）创始人唐.舒尔茨博士曾明确指出市场管理者必须要在专业领域拥有的九种武器：预见能力、构思能力、创造能力、组织能力、情报能力、表现能力、说服能力、学习能力、创新能力。看后较受启发，这几年，风起云涌出许多策划者，号称无所不通，无所不能，那其实是对专业的亵渎。所以我认为，真正的市场管理者，必须强化自己掌握以上九种武器，练好《葵花宝典》，才能使自己在专业领域中发挥能力，在市场战争中处于东方不败的地位。
创新能力
创新能力是基于学习能力之上的创造、更新。人类的发展靠创新，社会的进步靠创新，科技的突破靠创新，创新是所有进步的源泉。创新在市场构思阶段是对资源的创新利用，在市场方案的完成阶段是对旧有机制（方案）的更新时刻，在市场表现阶段是对理性思维的感性表现，在市场实施阶段又表现为新思想、新知识得到了验证并取得成果。因而，创新对于市场工作来说十分重要，创新是新价值的体现，同样也是一个痛苦的过程，因为它将否认自己过去的成绩与市场方式，创造出前人未曾走过的路。
预见能力、构思能力、创造能力、组织能力、情报能力、表现能力、说服能力、学习能力、创新能力如同市场人员的《葵花宝典》，为市场工作提供源源不断的能量和动力。与其说市场活动是一个工作，不如把市场当成一个事业更为恰当，因为在出色的市场方案将给予企业新的发展空间与上升通道，你会从中体会到一种成长的快乐。市场人员是世界上最聪明的人，同时也必须是世界上最寂寞的人，他必须在经过漫长的痛苦等待过程来体会其方案的最终成功；他必须是某一个领域的专家，还必须是某一方面的组织领袖。最重要的是，必须善于吸收知识的精华，善于创造属于市场的新思维、新观念。让我们去创造能掌握的现在与未来吧！
葵花宝典（精品pdf）
葵花宝典目录：一、丝网&烧结原理1．丝网印刷原理2．浆料一般特性简介3．厚膜浆料的组成4．烘干5．烧结二、印刷异常1．铝珠2．铝疱3．弯曲4．线条虚印5．部分区域过厚或者过薄甚至缺印6．背表面有吸盘印7．块状或者粉末状脱落8．水迹状脱落9．电极附着不牢10．背表面颜色偏白11．背表面颜色偏黄三、各电性能参数的异常情况1．Rs过大2．Rs偏小3．短路电流低4．短路电流高5．开路电压低6．Rsh低7．FF低四、测试仪器五、Jo片处理流程及范例一、丝网&烧结原理1．丝网印刷原理丝网印刷是把带有图像或图案的模版被附着在丝网上进行印刷的。
网版通常丝网由尼龙、聚酯、丝绸或金属网制作而成。
当承印物直接放在带有模版的丝网下面时，丝网印刷油墨或涂料在刮刀的挤压下穿过丝网中间的网孔，印刷到承印物上。
丝网上的模版把一部分丝网小孔封住使得颜料不能穿过丝网，而只有图像部分能穿过，因此在承印物上只有图像部位有印迹。
换言之，丝网印刷实际上是利用油墨渗透过印版进行印刷的，这就是称它为丝网印刷而不叫蚕丝网印刷或绢印的原因，因为不仅仅蚕丝用作丝网材料，尼龙、聚酯纤维、棉织品、棉布、不锈钢、铜、黄铜和青铜都可以作为丝网材料。
2．浆料一般特性简介制造太阳电池所用的金属电极导体浆料属于厚膜浆料，所谓厚膜浆料是由一种或多种无机微粒分散在有机高分子中组成的胶状或悬浮体。
通常将后者称为前者载体。
载体不参与膜的组成，它在高温烧成中分解逸出，但其性质却直接影响着浆料的特性，因而也会影响厚膜的性能。
无机微粒可根据浆料的特性和用途采用一种或几种材料，如金属、氧化物、玻璃。
其化学性质、结构形态、颗粒大小及分布决定了厚膜的性能，它们是厚膜的真正组分。
浆料要有很好的流变性，所谓流变性是指物质在外力作用下产生形变和流动的特性。
在丝网印刷的不同阶段，要求浆料既像液体，又像固体，在刮头运动的转印过程中，浆料应能很好地流动，光滑地通过丝网版掩模图形而到达基板。
《葵花宝典》1.0版本终稿
版本二：1分钟版本。 【总】：猎聘网是全国最大的中高端职业经理人求职的平台，采用线上网络招聘和线下 猎头协助意向沟通2种服务模式来帮助贵公司完成招聘的工作。 【分】： 线上部分： 包括职位发布、后台简历下载、发布图文信息广告这些传统网络招聘渠道的功能我们都 能满足。 线下部分： 对于您找到的满意的简历，我们会有专门的招聘服务中心协助您跟候选人前期的意向沟 通，把企业的吸引力及职位的吸引力提前跟候选人做事前的沟通，同时也把候选人真实 的想法反馈给企业，以便企业做好二次的筛选！ 【总】：总体来说，猎聘网是通过线上网络覆盖，及线下招聘顾问协助意向沟通的中高 端人才招聘渠道。 ***，请问我刚刚的介绍能让您了解我们的服务了吗？您还有什么不明白的地方吗？
Байду номын сангаас
销售： ***，猎聘网的简历资源来自三个方面： 第一，是职业经理人自行注册的，猎聘网这个平台上，每天以4000份简历以上 的速度在增长，我们平台提供给候选人16项的隐私保护，让候选人在寻找机会 的同时，保护到自己。同时，我们北京总部有一个专门的部门，负责筛选，挑 选合格的、有效的简历填充到我们后台资源库中； 第二，是猎聘网的猎头项目积累的，猎聘网成立于2000年，至今做了12年的猎 头公司，很多的简历，是我们专业的猎头顾问一个项目一个项目的积累，在市 面上一份一份挖掘过来，填充到我们的资源库里； 第三，是猎聘网和全国3000多家猎头公司，超过25000名猎头顾问有战略合作关 系，我们和猎头公司进行资源互换，形成一个强大的猎头联盟。 通过以上三个途径，注册的，猎头项目挖掘的以及和猎头公司互换的，这样积 累12年，才形成今天国内最大的中高端人才资源库，800多万的简历。 ***，不知我这样的回答，能否让您满意，您有任何问题，请随时提出来哦！
葵花宝典(附针法)
[东方不败-葵花宝典பைடு நூலகம்炼者]
东方不败-葵花宝典修炼者
注解:此功最难者在于去除淫亵之气,过此关则其他很简单,故常人练之需万日之功才可至化神之境,我著此宝典并非要人都去自宫练气,人应常保平常之心,不应妄动淫亵之念.后面附一静心活血练气之方.
服药之方:防风,艾,菖蒲,菊花各等量,捣为末以藕汁相和,丸为黄豆大,每日服3次.
编辑本段基本针法
（1 ）光君：用无名指与大拇指轻轻捏住针线，小指与食指伸出呈现兰
比如隔街扔垃圾，一指弹出，可以省下许多事，如今已是21世纪，金老先生的作品依然魅力不减，可喜可贺。
葵花第一重
天地阳气生时,在于子午二时,当是此时,应定心圆气,舍却心中淫亵之念,存想天女捧香而至,气自丹田而生,经右肾旋而下右足,由足后反上右胁下,至右手,过肩井循颈入耳至脑后下左耳复过肩井下左手反左胁下腰由左肾下左足,循足上行复还丹田,其间凡身体有颤动之处,则右以左手按之,左以右手按之,其间存想天女按之,但觉两耳如鼓,华池液满,分三次咽下,前后共反复三十六次,功行百日,可颜如婴童! (若心存淫亵之念,则心动而气乱,非但无功,反而会失精失色,面目干涸)
葵花第二重
男子练气,女子练血,气血双修,事半功倍,气盛血亦盛,然终需主练一种,气为导引,血为介质,气血通则人流通不老,正如流水不腐,户枢不蠹,当先令气圆固,存想天女以两手向腰上至颈摩之,气入泥丸,搬运不停,华池之液咽四十九之数,气固而成真.此境界行之久久,可令气化为真. (若心动,则气散,恐今生难再进一步)
葵花宝典
NO.44 找到一本卡通动画，确定能够引起你的伴侣曾经有过美好回忆的动画角色。用复印机放大这个动画，并且用白色的涂改液覆盖文字部分。写上你想要的句子，然后再次影印，这样看起来就像原生的似的。在送给你的伴侣之前，为了使之更有质感，你可以在背面粘上一块纸板。
NO.45 当你和你的伴侣有一段休假的时期，组织起个大早，一起去风景优美的地方看日出。 可能你觉得有困难，但是至少做一次是非常值得和有意义。与你的伴侣共同分享新的一天来临，这样的体验非常特别。
NO.25 在一个特殊的日子，比如她生日的那天，为她安排一个地图寻宝游戏。这个游戏可以在你提议去海滩散步时进行。你们启程去海滩之前，你需要在身上背一个小包。小包里放置一个瓶子，瓶中装一张寻宝图。为了让这张寻宝图看起来更加逼真，你可以用火柴把地图的边缘烧成不规则。当你们在海滩上散步时，让小瓶子从包里不经意间掉出来，落在海水的边缘。这个动作可以在你和女友接吻时进行，以防被她发现。装作没事，然后继续散步，无意间折回发现这个地上的瓶子。在地图上画一条线，指向沙滩附近的一家咖啡馆。在咖啡馆，你的女友可能会找不到任何线索，而提议坐下来喝杯咖啡。当女服务员送咖啡过来，她会暗示你的女友将在咖啡杯底找到正在寻找中的东西。当你的女友翻转杯底，她会发现杯底粘着一把钥匙。很明显，你已经事先和女服务员商量好了。大多数的女服务员非常乐意成全一个浪漫的男人所将要做的浪漫的事。在地图的下一站，你的女友将会找到一把铲子。然后在地图的最后一站，女友会发现两根木棒所组成的一个大大的“X”字。她用力地铲开泥土，发现了一个锁着的箱子。让她用咖啡馆里的那把钥匙打开这个箱子，她会看到她的生日礼物。
NO.31 当你和女友路过购物中心或者机场的时候，去拍一套大头贴。选一个浪漫的背景，在即将快门的时候，迅速亲吻你的女友。
葵花宝典1
张总，书生无论从市场和功能就没法跟我们比。 不付款，这根本不可能的。我们也是代理商。 我们这个软件就是一个序列号，给您安装后就 相当于卖断了。 再说了，不同的行业有不同的原则，像软件行 业，我们也是先收了您的钱后，打到总部发号， 并审核通过后，您方可使用的。 我们的软件是解决您广告的面的问题，并填补 了您在网络营销中的空白。
面对第一次没搞定的意向客户，之后因为客户一直很忙而约不到。
烧！ 堵！ 扔！
你先让我使用一下演示版，如果坐上效果好的话。我在买行吗？
我们的演示版本没有实际发布的效果。只是让 您作了解用的。你看我们这么多客户都做上去 了，你还顾虑什么呢。
合同就像一张废纸，到时候没给我们做上去怎么办，
张总，您的这个问题提的很有意思。中国也是 一个法制社会，合同怎么跟废纸一样呢，这上 面盖有我们公司的公章，就起到了法律效应。 你总不能 说您和你老婆的结婚证也是废纸一 吧。（笑，开玩笑的） 你说的没做上去是指的什么。
我们先交点定金 你给我们做 等信息上去了再给剩下的钱
（该公司是售飞机票的）
不同的产品有不同的价值，这不能相提并论。 就像您的机票一样，同样去北京，头等舱和普 通舱价格相差很大一样。
你们公司制作网站效果不太好，不想与你们公司再合作！(该公司
去年已在我司做个一个A模板网站)
首先你交了一个模板的费用，还最求什么制作 效果呢，我们给开元做的，长安区政府网，西 北民航的效果也不错啊。
为什么软件的发布成功率不是100%？
张总，您提的这个问题很好，发布成功率与很 多方面相关的，包括你当下发布信息时的网是 否稳定，及及您的网速快慢，和验证码的正 确输入都有关系；其次我们的软件发布的目标 主体就是商贸平台，你想几千家这样的平台， 难免有时他们的数据结构发生变化，我们总部 五十多位工程师会及时处理软件中的数据的。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
fpvaspread 详解With vaspread.DeleteRows 1, 1 --删除第一列第一行数据.Col = -1: .Row = -1: .Lock = False --设置vaspread为解锁状态.AllowUserFormulas = False ‘不允许格式化.MaxCols = 67 '58 ‘设置最大列数.MaxRows = 300 ‘设置显示行的最大数.ColHeaderRows = 1 ' 2 将头换成1行.UserColAction = UserColActionSort '表头是否排序' .AddCellSpan 1, SpreadHeader, 17, 1 '16 change 17 ‘设置显示标题栏格式' .Col = 1: .Row = SpreadHeader: .Text = "基本信息" ‘设置列名.Col = COL_ID: .Row = SpreadHeader: .Text = "序号" 'SpreadHeader + 1 控制显示的行'SpreadHeader + 1 DateField 为绑定的数据表字段colhidden是否为隐藏‘Colwidth 设置显示的列的宽度.Col = COL_FID: .Row = SpreadHeader: .DataField = "FID": .Text = "表体唯一号": .ColHidden = True ：。
ColWidth（1）=12 '‘SpreadHeader + 1‘格式化列表.CellType = CellTypeDate 日期.Col = FhwBoolIn(2, "FStartDate"): .CellType = CellTypeDate: .TypeDateFormat = TypeDateFormatYYMMDD‘设置数字.CellType = CellTypeNumber'.Col = FhwBoolIn(2, "FThickness"): .CellType = CellTypeNumber: .TypeNumberDecPlaces = 2: .TypeNumberShowSep = True: .TypeHAlign = TypeHAlignRight‘设置文本型.CellType = CellTypeEdit:.Col = FhwBoolIn(2, "FDescriptionCust"): .TypeEditMultiLine = True: .CellType = CellTypeEdit: .AutoSize = True‘自动换行换列Private Sub EntrerCtrlCol(ByVal KeyCode As Long) 'Enter 换行With vaspreadIf KeyCode = 13 Then ‘获取回车事件If .MaxCols <> .ActiveCol Then 。
如果当前列不等于最大列，则换行否则换列.SetActiveCell .ActiveCol + 1, .ActiveRow.SetFocusElse.SetActiveCell 1, .ActiveRow + 1.SetFocusEnd IfEnd IfEnd WithEnd Sub‘获取值Dim pvalue as variantvaspread.GetText vaspread.ActiveCol, vaspread.ActiveRow,pvalue ‘ pvalue 为获取的值vaspread.SetText vaspread.ActiveCol, vaspread.ActiveRow,pvalue ‘pvalue需要给赋予的值‘设置行底色一级边框颜色‘第一行设置背景颜色，第二行设置边框颜色With vasperad.Col = -1: .Row = Row: .BackColor = &HC0C0C0: .BackColorStyle = BackColorStyleUnderGrid .Col = -1: .Row = Row: .BorderStyle = BorderStyleFixedSingle: .BackColor = &H80000018End with‘复制行With vaspread.InsertRows vaspread.ActiveRow + 1, 1For i = 0 To .MaxCols.Col = i.GetText i, .ActiveRow, TempIf i = FhwBoolIn(2, "FDescriptionYard") Or i = FhwBoolIn(2, "FDescriptionCust") ThenTemp = Temp & " ".SetText i, .ActiveRow + 1, Tempvaspread.ColWidth(FhwBoolIn(2, "FDescriptionCust")) = 20vaspread.ColWidth(FhwBoolIn(2, "FDescriptionYard")) = 20iHeight = Len(Temp) / 13If Right(FormatNumber(iHeight), 1) > 5 TheniHeightTemp = Round(iHeight, 0)ElseiHeightTemp = Round(iHeight, 0) + 1End Ifvaspread.RowHeight(.ActiveRow + 1) = iHeightTemp * 12Else.SetText i, .ActiveRow + 1, TempEnd IfNext iEnd With‘插入行‘删除行With vaspreadIf i = 1 Then.InsertRows .ActiveRow + 1, 1ElseIf i = 2 Then.GetText COL_FID, .ActiveRow, fid.DeleteRows .ActiveRow, 1If fid <> "" ThenDateMoving (fid)End IfEnd IfEnd With1设置滚动条有时候需要设置滚动条不可见就可以通过这里进行设置。
‘设置序号15.修改数据这儿需要定义两个全局变量Dim dctFront as KFO.DictionaryDim vctFront as KFO. VectorIf fid <> "" ThenSet dctFront = New KFO.DictionarydctFront("fid") = fiddctFront("filename") = GetFieldName(vaspread.ActiveCol)If .ActiveCol = FhwBoolIn(2, "FWhetherAssessment") Or .ActiveCol = FhwBoolIn(2, "FBusinessConfirmState") Or .ActiveRow = FhwBoolIn(2, "FSettlementState") Or .ActiveCol = FhwBoolIn(2, "FSignTheBillState") ThenIf Trim(Temp) = "是" ThendctFront("value") = 1ElseIf Trim(Temp) = "" Or Trim(Temp) <> "是" ThendctFront("value") = 0End IfElsedctFront("value") = TempEnd IfvctFront.Add dctFrontSet dctFront = Nothing‘定义需要拿到的字段名称Private Function GetFieldName(ByVal i As Integer) As StringIf i = SpreadCol.COL_ID ThenGetFieldName = "Fid"' ElseIf i = SpreadCol.FhwBoolIn(2, "FMaterialsType")FIndex Then' GetFieldName = "FIndex"ElseIf i = FhwBoolIn(2, "FSubcontractorName") ThenGetFieldName = "FSubcontractorName"endifEnd subI 为需要修改的列数16.进行修改数据Set dctFront = New KFO.DictionaryIf vctFront.UBound > 0 ThenFor i = vctFront.LBound To vctFront.UBoundSet dctFront = vctFront.Item(i)If dctFront("filename") <> "" ThenSsql = "update t_quota_entry_table set "Ssql = Ssql & vbCrLf & dctFront("filename") & "='" & Replace(dctFront("value"), "'", "") & "'"Ssql = Ssql & vbCrLf & " where fid = '" & dctFront("fid") & "'"Set obill = CreateObject("BillDataAccess.GetData")obill.ExecuteSQL DEMMTS.PropsString, SsqlModifyFlag = TrueEnd IfNext iSet dctFront = NothingSet vctFront = New KFO.VectorEnd If17.设置序号列的宽度.Col = 0: .Row = SpreadHeader: .Text = "序号": .ColWidth(0) = 518.spread 设置sort 排序spread.ColUserSortIndicator(-1) = ColUserSortIndicatorNone.UserColAction = UserColActionAutoSize。