-
艾的艾的
2008-09-20
-
看过zhaotiger兄台回复的贴子,非常敬佩兄台的语言.
-
徐雪
2008-06-24
-
<br/>'传回 CCD 取得的数据<br/>Public Function ScanCom(ByVal Instring As String) As String()<br/> <br/> Dim Y As String<br/> Dim x As Integer<br/> <br/> Static CRflag As Boolean<br/> Static UseString As String<br/> <br/> <br/> Dim arr(2) As String<br/><br/> For x = 1 To (Len(Instring) + 1)<br/> Y = Mid$(Instring, x, 1)<br/><br/> If Y = Chr$(13) Then<br/> CRflag = True<br/> Y = ""<br/> End If<br/><br/> If Y = Chr$(10) Then<br/> Y = ""<br/> CRflag = False<br/> End If<br/><br/><br/> If CRflag = False Then<br/> UseString = UseString & Y<br/> End If<br/> Next x<br/><br/><br/> If (CRflag = True) Then<br/><br/> CRflag = False<br/> arr(0) = "True"<br/> arr(1) = Trim(UseString)<br/> UseString = ""<br/> End If<br/><br/> ScanCom = arr<br/> <br/> <br/>End Function<br/>你可以举例给我讲一下吗？ 条码扫描的代码 怎么会有那么多 chr（13）和chr（10）
-
duker_java
2007-12-06
-
分已给了!以后多多照顾,初用VB
-
吴梦
2007-11-28
-
http://topic.csdn.net/u/20071127/14/159e2fed-fd48-40ad-9b80-4cec16eef879.html?seed=1902922028<br/>请您帮着看看.
-
张志浩
2007-09-21
-
有我的帖子：（帮我写个函数）<br/>参数：现有数组zhuanYE（m），记录为数字如（4，6，8，3）<br/>得出的结果是：二维数组scoreTmp（i，m）：其中i是得到的组合数，有多少种组合i就是多少，m是上边zhuanYE（）?的数组长度<br/>每个i行如：（0－4的某个数字，0－6的某个数字，0－8的某个数字，0－3的某个数字）?<br/>需要所有的组合
-
zhanguoru
2007-09-14
-
您好!
能给个修改水晶报表中文本的例子吗？谢谢！！zhanguoru@126.com
http://community.csdn.net/Expert/TopicView3.asp?id=5731522
-
yinxionglu2007
2007-09-13
-
tiger_zhao你好，我在CSDN里面看了很多你回复的帖子，非常敬佩你的编程水平，奢想和你交个朋友，不知有没有这个福气，我的QQ：656213051
-
scorpionc
2007-09-07
-
Set?cmd?=?New?ADODB.Command<br/>With?cmd<br/>????Set?.ActiveConnection?=?cnn<br/>????.CommandText?=?"sp_abc"<br/>????.CommandType?=?adCmdStoredProc<br/>????.Prepared?=?True<br/>????.Parameters.Append?.CreateParameter("retVal",?adInteger,?adParamReturnValue)?<?-创建返回值参数<br/>????...<br/>????.Execute<br/>????Debug.Print?.Parameters("retVal").Value<br/>End?If<br/>的確能返回值，但是前面定義的有output的這時就不能按正常返回了.如下<br/>.....<br/>A?char(1)?output<br/>B?char(1)?output<br/>....<br/><br/>if?表達式?>0???<br/>??begin<br/>???return?2???'註意<br/>??end<br/><br/>.Parameters.Append?.CreateParameter("retVal",?adInteger,?adParamReturnValue)<br/>.Parameters.Append?.CreateParameter("A",?adChar,adParamOutput)<br/>.Parameters.Append?.CreateParameter("B",?adChar,adParamOutput)<br/>返而得不到A和B了.
-
王云
2007-09-04
-
我把分给你了吗？为什么我的分数没少呢，如果没有我再给一次就是了
-
hylloverx
2007-09-04
-
帥哥,請問:点击一个按钮，发出一个警告的声音，代码怎么写啊!如果知道,就請告訴一下.本人不勝感激