<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>需要为所有的窗体的所有的文本框的获得焦点事件定义2个以上的公共方法，但是我不想一个一个去定义，该如何操作？有没有一次性就可以全部定义的方法？</td></tr></table></div><p>&nbsp;</p></P><P> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*><BR> 方法有很多，最简单的就是直接用Controls循环得到窗体的所有控件并定义文本框的&nbsp;OnGotFocus=&quot;过程名&quot;。但是这样只能定义一个方法，而且传参比较麻烦，不能按地址传对象。</P><P> 另一个方法就是用&nbsp;WithEvents&nbsp;来委托控件的事件，但是ACCESS的form和control比较特别，需要额外设定&nbsp;On....=&quot;[Event&nbsp;Procedure]&quot;&nbsp;否则这个事件是不会被触发的。</P><P> Access2010&nbsp;示例下载：<BR> <A HREF="http://access911.net/down/eg/eg_withevents.rar" TARGET=_blank >http://access911.net/down/eg/eg_withevents.rar</A><br/><script type="text/javascript" src="/googlejs.js"></script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>(37.7KB)</P><P> <BR> </table></table></table></table>

Function&nbsp;FormulaOneElementMaxLengthTest()<BR> On&nbsp;Error&nbsp;Resume&nbsp;Next<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;s&nbsp;As&nbsp;String<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;i&nbsp;As&nbsp;Long<BR> &nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;=&nbsp;1&nbsp;To&nbsp;5000<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#39;Debug.Print&nbsp;String(i,&nbsp;&quot;中&quot;)<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range(&quot;a1&quot;).Formula&nbsp;=&nbsp;&quot;=&quot;&quot;&quot;&nbsp;&&nbsp;String(i,&nbsp;&quot;中&quot;)&nbsp;&&nbsp;&quot;&quot;&quot;&quot;<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Err&nbsp;&lt;&gt;&nbsp;0&nbsp;Then<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print&nbsp;&quot;单个元素（中文字符数）的最大长度为：&quot;&nbsp;&&nbsp;i<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Clear<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;For<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<BR> &nbsp;&nbsp;&nbsp;&nbsp;Next<BR> &nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;=&nbsp;1&nbsp;T</table></table></table></table>

如何用办公辅助软件授权登录ERP&nbsp;V3</P><P> 到以下地址下载办公辅助软件<BR> <A HREF="http://access911.net/csdn/filedescription.asp?mdb=2012-4-30&id=38&mode=3" TARGET=_blank >http://access911.net/csdn/filedescription.asp?mdb=2012-4-30&id=38&mode=3</A><br/><script type="text/javascript" src="/googlejs.js"></script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script></P><P> 下载后解压缩到您硬盘的任意目录，然后双击运行。</P><P> 点击&nbsp;菜单-&gt;模块-&gt;登录JXC&nbsp;<BR> 图片如下：<br><a onfocus="this.blur();" href="http://access911.net/pic/article/privatelogin_menu.jpg" target=_blank><IMG SRC="http://access911.net/pic/article/privatelogin_menu.jpg" border=0 alt=按此在新窗口浏览图片 onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333;"></a></P><P> 填写您的用户名，单击“打开IE”按钮。<BR> 图片如下：<br><a onfocus="this.blur();" href="http://access911.net/pic/article/privatelogin_openie.jpg" target=_blank><IMG SRC="http://access911.net/pic/article/privatelogin_openie.jpg" border=0 alt=按此在新窗口浏览图片 onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333;"></a></P><P> <BR> </table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>新手来看：Sql&nbsp;Server如何每行产生一个随机值。<BR> 要求在一个select查询或者update查询中对一个表的所有行进行操作，每行的随机值都要不一样。</td></tr></table></div><p>&nbsp;</p></P><P> [CHAPTER=回答</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>新手来看：如何在SqlServer&nbsp;Text数据类型的字段后面继续添加字符串。</td></tr></table></div><p>&nbsp;</p></P><P> <BR> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>有关&nbsp;UPDATETEXT&nbsp;的帮助说明下面都有，用不同的参数就可以了。<BR> insert_offset=null<BR> delete_length=0<BR> 即可。</P><P> <table style="width:100%" cellpadding=5 cellspacing=1 ><TR><TD style="color:#00284D;background-color:#F2F2F2;border: 1px solid;border-color:#81A9E8;margin-top: 0px;padding-left:10px;padding-right: 10px;padding-top:10px;padding-bottom:10px;text-decoration: none" width="100%"><BR> --创建测试用的临时表<BR> create&nbsp;table&nbsp;#t1&nbsp;([Id]&nbsp;[int]&nbsp;IDENTITY&nbsp;(1,&nbsp;</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>直接组织SQL语句并在SQL&nbsp;SERVER上执行容易出现sql漏洞，如何避免？<BR> Excel中批量执行SQL&nbsp;Server语句，如何校验是否有SQL注入漏洞《OA》</td></tr></table></div><p>&nbsp;</p></P><P> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*></P><P> 在SQL语句中用&nbsp;?&nbsp;问号代替对应的参数，然后用command.parameters进行赋值，可以避免漏洞，而且存储过程可以使用的代码基本都可以使用。</P><P> <table style="width:100%" cellpadding=5 cellspacing=1 ><TR><TD style="color:#00284D;background-color:#F2F2F2;border: 1px solid;border-color:#81A9E8;margin-top: 0px;padding-left:10px;padding-right: 10px;padding-top:10px;padding-bottom:10px;text-decoration: none" width="100%">&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;conn&nbsp;As&nbsp;New&nbsp;ADODB.Connection<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;cmd&nbsp;As&nbsp;New&nbsp;ADODB.Command<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;strSql&nbsp;As&nbsp;String<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;rs&nbsp;As&nbsp;New&nbsp;ADODB.Recordset<BR> &nbsp;&nbsp;&nbsp;&nbsp;conn.Open&nbsp;&quot;Provider=SQLOLEDB.1;Password=1;Persist&nbsp;Se</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>如何让EXCEL中对象的OnAction可以直接调用ComAddIn&nbsp;Dll文件中指定类的指定函数？《OA》</P><P> 在帮助中找到了以下几句<BR> <table WIDTH=100% cellpadding=5 cellspacing=1><TR><TD style="color:BLACK;background-color:#FFF7E5;border:1px solid;border-color:#C1CDD8;margin-top: 0px;padding:10px;text-decoration: none" width="100%">本示例向命令栏“Custom”添加一个命令栏控件。COM&nbsp;加载项“FinanceAddIn”将在每次单击该控件时运行。</P><P> Set&nbsp;myBar&nbsp;=&nbsp;CommandBars(&quot;Custom&quot;)<BR> Set&nbsp;myControl&nbsp;=&nbsp;myBar.Controls&nbsp;_<BR> &nbsp;&nbsp;&nbsp;&nbsp;.Add(Type:=msocontrolButton)<BR> With&nbsp;myControl<BR> &nbsp;&nbsp;&nbsp;&nbsp;.FaceId&nbsp;=&nbsp;2<BR> &nbsp;&nbsp;&nbsp;&nbsp;<font style="color:#FF0000">.OnAction&nbsp;=&nbsp;&quot;!&lt;FinanceAddIn&gt;&quot;</font><BR> End&nbsp;With<BR> myBar.Visible&nbsp;=&nbsp;True</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>如何在Excel2003的工作表中加入标尺功能，以厘米为单位？<BR> Excel&nbsp;2010&nbsp;中本身就有标尺功能，EXCEL&nbsp;2003&nbsp;中如何加入呢？</td></tr></table></div><p>&nbsp;</p></P><P> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*><table style="width:100%" cellpadding=5 cellspacing=1 ><TR><TD style="color:#00284D;background-color:#F2F2F2;border: 1px solid;border-color:#81A9E8;margin-top: 0px;padding-left:10px;padding-right: 10px;padding-top:10px;padding-bottom:10px;text-decoration: none" width="100%">Sub&nbsp;MakeRuler_cm()<BR> <FONT COLOR="#008000">&#39;以厘米为单位，在sheet中创建一个标尺，而且该标尺不是图片，是形状组合。</FONT>&nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;&nbsp;&nbsp;&nbsp;Const&nbsp;Ruler_Width&nbsp;As&nbsp;Double&nbsp;=&nbsp;17&nbsp;&nbsp;&nbsp;&nbsp;&#39;Width&nbsp;17&nbsp;cm<BR> &nbsp;&nbsp;&nbsp;&nbsp;Const&nbsp;Ruler_Height&nbsp;As&nbsp;Double&nbsp;=&nbsp;17&nbsp;&nbsp;&nbsp;&#39;Height&nbsp;17&nbsp;cm<BR> &nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;i&nbsp;As&nbsp;Long<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;l&nbsp;As&nbsp;Long<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;x&nbsp;As&nbsp;Long<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;y&nbsp;As&nbsp;Long<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;ws&nbsp;A</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*>Excel中有Application.Intersect可以返回交集，那么如何返回差集呢？</td></tr></table></div><p>&nbsp;</p></P><P> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*></P><P> 使用后的实际效果请参考以下链接：<BR> <A HREF="http://www.access911.net/online/assist911.htm#_Toc314580812" TARGET=_blank >http://www.access911.net/online/assist911.htm#_Toc314580812</A><br/><script type="text/javascript" src="/googlejs.js"></script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script></P><P> 当按住Ctrl键多选非连续单元格时，如果错误选择后是无法取消该选择，使用本功能就可以选取或者取消选取。这在财务日常工作中是很有用的，因为财务经常要多选不同的数据，快速查看Excel右下角的求和值与财务报表值是否相同。<BR> 图片如下：<br><a onfocus="this.blur();" href="http://access911.net/csdn/filedescription.asp?mdb=2012-1-17&id=29" target=_blank><IMG SRC="http://access911.net/csdn/filedescription.asp?mdb=2012-1-17&id=29" border=0 alt=按此在新窗口浏览图片 onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333;"></a></P><P> 要添加选择区域时可以不用按住Ctrl键，而是直接右键单击选定区</table></table></table></table>

<a name="问题"></a><font style="font-size:10pt;color=black;font-weight: bolder">问题：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*><BR> Excel当有多列合并单元格时如何只选中其中一列？<BR> 有合并单元格时，如何不让EXCEL自动跨行或者跨列操作？</P><P> 新建一个空白工作表，选中&nbsp;A1:X1单元格，并合并这几个单元格。然后新建vba模块，运行以下代码：</P><P> <table style="width:100%" cellpadding=5 cellspacing=1 ><TR><TD style="color:#00284D;background-color:#F2F2F2;border: 1px solid;border-color:#81A9E8;margin-top: 0px;padding-left:10px;padding-right: 10px;padding-top:10px;padding-bottom:10px;text-decoration: none" width="100%">Sub&nbsp;选择2个列()<BR> &nbsp;&nbsp;&nbsp;&nbsp;Columns(&quot;A:B&quot;).Select<BR> End&nbsp;Sub</td></tr></table><br><BR> 您会发现&nbsp;A:X&nbsp;列被选中，而不是您希望的&nbsp;A:B列被选中，原因是&nbsp;A:X&nbsp;列中包含合并单元格。如何解决该问题？</P><P> <BR> 有趣的是我们使用录制宏功能，手动选择&nbsp;A列到B列，再查看&nbsp;EXCEL&nbsp;自行录制的代码，竟然也是</P><P> Columns(&quot;A:B&quot;).Select</P><P> 但是如果去执行该代码，仍然是&nbsp;A列到X列全部被选中</P><P> </td></tr></table></div><p>&nbsp;</p><BR> <a name="回答"></a><font style="font-size:10pt;color=black;font-weight: bolder">回答：</font><br><br><div><table width="100%"><tr><td width="22"></td><td width=*></P><P> 我查询了很多资</table></table></table></table>

用ACCESS实现了用户可视化定义工作流的控件<BR> AddFlow4.ActiveX.Control.v4.2.0.14.zip<BR> 下载地址：<BR> <A HREF="http://access911.net/csdn/filedescription.asp?mdb=2008-10-25&id=55" TARGET=_blank >http://access911.net/csdn/filedescription.asp?mdb=2008-10-25&id=55</A><br/><script type="text/javascript" src="/googlejs.js"></script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>&nbsp;3.37&nbsp;MB</P><P> <BR> 用ACCESS实现了OUTLOOK界面<BR> 看看微软官方的控件吧。第三方的也N多。<BR> http://support.microsoft.com/kb/q281618/</P><P> ActiveBar&nbsp;控件</table></table></table></table>

不装ACCESS的环境中修改MDB的工具，MDBPlus&nbsp;1.5。有时候在</table></table></table></table>

GIF&nbsp;录像工具。可以直接将</table></table></table></table>

Ghost&nbsp;1</table></table></table></table>

1999到2006年&nbsp;access911.net&nbsp;全站经典文章&nbsp;CHM&nbsp;下载</P><P> 该&nbsp;CHM&nbsp;中绝大多数文章为本站站长&nbsp;陈格&nbsp;原创，包含了陈格在&nbsp;ACCESS&nbsp;开发中的心得与技巧。<BR> 文章最后更新为&nbsp;2006年底，2007年的部分文章还没有收录。</P><P> 感谢网友阿党（qq：6835878）为本站制作此合集，</table></table></table></table>

OFFICE&nbsp;2007&nbsp;正式版bt下载（本站长期做种）</P><P> OFFICE&nbsp;2007&nbsp;正式版下载<BR> 包括：office&nbsp;2007&nbsp;英文企业版本，office&nbsp;2007&nbsp;简体中文企业版，office&nbsp;2007&nbsp;简体中文专业版</P><P> 注意：<BR> 1、即使是中文&nbsp;OFFICE&nbsp;2007&nbsp;企业版中附带的Groove仍然是英文界面的，因为Groove目前没有简体中文版。<BR> 2、该简体中文&nbsp;OFFICE&nbsp;2007&nbsp;企业版在安装时会出现找不到文件的情况，请按照附带的&nbsp;TXT&nbsp;文本中的说明进行处理<BR> 3、下载的是&nbsp;IMG&nbsp;文件，请用虚拟光驱软件进行加载</P><P> </P><P> <BR> 关于企业版与专业版的区别：</P><P> PRO:专业版<BR> ENT:企业版<BR> Ent比Pro多了两个组件:Onenote和Groove</P><P> 2007&nbsp;Microsoft&nbsp;Office&nbsp;Suites&nbsp;Microsoft&nbsp;Office&nbsp;Enterpr</table></table></table></table>

HyperSnap-DX&nbsp;是个屏幕抓图工具，它不仅能抓住标准桌面程序还能抓取&nbsp;DirectX,&nbsp;3Dfx&nbsp;Glide&nbsp;游戏和视频或&nbsp;DVD&nbsp;屏幕图。本程序能以&nbsp;20&nbsp;多种图形格式（包括：BMP,&nbsp;GIF,&nbsp;JPEG,&nbsp;TIFF,&nbsp;PCX&nbsp;等）保存并阅读图片。可以用热键或自动记时器从屏幕上抓图。功能还包</table></table></table></table>

EPSnap,简单易用且功能强大的抓屏工具&nbsp;<BR> EPSnap是一个完全免费并且功能强大的绿色屏幕抓图工具，免安装，使用简单方便。提供全屏捕捉、窗口或控件捕捉、扩展窗口捕捉、区域捕捉、将整个网页捕捉成一张图片、网页元素捕捉等强大功能，支持自动保存，可选择多种保存格式。支持自动升级功能。另有多项人性化设置，帮助您轻松完成工作！</P><P> 本软件的特点有：&nbsp;</P><P> 功能强大，支持多种抓图方式：&nbsp;<BR> 抓取当前屏幕(快捷键：Win+1)&nbsp;<BR> 抓取指定窗体或单独抓取窗体上的控件，如菜单、工具条、按钮、下拉列表等(快捷键：Win+2)&nbsp;<BR> 扩展窗体捕捉，可以抓取到滚动条之外的图像。(</table></table></table></table>

格式化&nbsp;VBA&nbsp;6.0&nbsp;缩进的插件。</P><P> 安装以后在代码编辑界面中右键单击鼠标会弹出快捷菜单里面有&nbsp;Smart&nbsp;Indent&nbsp;的选项。</P><P> 这个软件很适合贴一堆乱糟糟的代码到贴子里面进行提问的初级用户，建议先格式化一下代码，这样会有更多高手来回答你的问题的。</P><P> <BR> [CGHTML]<BR> &lt;P&gt;&lt;B&gt;&lt;FONT&nbsp;size=4&gt;Introduction&lt;/FONT&gt;&lt;/B&gt;&lt;/P&gt;<BR> &lt;P&gt;&lt;B&gt;Smart&nbsp;Indenter&nbsp;Version&nbsp;3.5&nbsp;(released&nbsp;10th&nbsp;February&nbsp;2005)&nbsp;is&nbsp;available&nbsp;free&nbsp;for&nbsp;&lt;A&nbsp;href=&quot;http://www.oaltd.co.uk/DLCount/DLCount.asp?file=IndenterVBA.exe&quot;&gt;Office&nbsp;2000/2002/2003&lt;/A&gt;,&nbsp;&lt;A&nbsp;href=&quot;http://www</table></table></table></table>

蓝牙软件&nbsp;IVT&nbsp;BlueSoleil&nbsp;</table></table></table></table>

非常详</table></table></table></table>

</table></table></table></table>

1、首先在access中定义一个函数用于计算标准差，具体标准差的计算公式略<BR> function&nbsp;calc_stdev(af1&nbsp;as&nbsp;double,&nbsp;af2&nbsp;as&nbsp;double,af3&nbsp;as&nbsp;double,af4&nbsp;as&nbsp;double)&nbsp;as&nbsp;double<BR> &nbsp;&nbsp;&nbsp;....具</table></table></table></table>

update&nbsp;统计表，实时表<BR> set&nbsp;统计表.点击率=实</table></table></table></table>

8.0解压不需要密码，安</table></table></table></table>

8.0的解压码是多少啊？<BR> 我下了可是安装到最后一步安不了<BR> 我用7.1去破解MDB文件可以<BR> 但一破解MDW文件也成功了但是就在成功的一瞬间它就自己关闭了<BR> 我也是在程</table></table></table></table>

download.microsoft.com/download/a/d/f/adfdf363-0b09-</table></table></table></table>

&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;ws&nbsp;=&nbsp;CreateObject(&quot;wscript.shell&quot;)<BR> &nbsp;&nbsp;&nbsp;&nbsp;ws.Ru</table></table></table></table>

Function&nbsp;asfasdfsd()<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;sel&nbsp;As&nbsp;Range<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;c&nbsp;As&nbsp;Range<BR> &nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;s&nbsp;As&nbsp;String<BR> &nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;sel&nbsp;=&nbsp;Application.Selection<BR> &nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;Each&nbsp;c&nbsp;In&nbsp;sel<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;=&nbsp;c.Value<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;s&nbsp;&lt;&gt;&nbsp;&quot;&quot;&nbsp;Then<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do&nbsp;Until&nbsp;IsNumeric(Left(s,&nbsp;1))&nbsp;=&nbsp;True<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;=&nbsp;Mid(s,&nbsp;2)<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;s&nbsp;=&nbsp;&quot;&quot;&nbsp;Then<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;Do<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If</table></table></table></table>

ftp.grasp.com.c</table></table></table></table>