zhaotiger的留言

看过zhaotiger兄台回复的贴子,非常敬佩兄台的语言.

'传回 CCD 取得的数据
Public Function ScanCom(ByVal Instring As String) As String()
         
   Dim Y As String
   Dim x As Integer
      
   Static CRflag As Boolean
   Static UseString As String
     
     
   Dim arr(2) As String

   For x = 1 To (Len(Instring) + 1)
      Y = Mid$(Instring, x, 1)

      If Y = Chr$(13) Then
         CRflag = True
         Y = ""
      End If

      If Y = Chr$(10) Then
         Y = ""
         CRflag = False
      End If


      If CRflag = False Then
         UseString = UseString & Y
      End If
   Next x


   If (CRflag = True) Then

         CRflag = False
         arr(0) = "True"
         arr(1) = Trim(UseString)
         UseString = ""
   End If

   ScanCom = arr
   
   
End Function
你可以举例给我讲一下吗？  条码扫描的代码  怎么会有那么多 chr（13）和chr（10）

分已给了!以后多多照顾,初用VB

http://topic.csdn.net/u/20071127/14/159e2fed-fd48-40ad-9b80-4cec16eef879.html?seed=1902922028
请您帮着看看.

有我的帖子：（帮我写个函数）
参数：现有数组zhuanYE（m），记录为数字如（4，6，8，3）
得出的结果是：二维数组scoreTmp（i，m）：其中i是得到的组合数，有多少种组合i就是多少，m是上边zhuanYE（）?的数组长度
每个i行如：（0－4的某个数字，0－6的某个数字，0－8的某个数字，0－3的某个数字）?
需要所有的组合

您好! 能给个修改水晶报表中文本的例子吗？谢谢！！zhanguoru@126.com http://community.csdn.net/Expert/TopicView3.asp?id=5731522

tiger_zhao你好，我在CSDN里面看了很多你回复的帖子，非常敬佩你的编程水平，奢想和你交个朋友，不知有没有这个福气，我的QQ：656213051

Set?cmd?=?New?ADODB.Command
With?cmd
????Set?.ActiveConnection?=?cnn
????.CommandText?=?"sp_abc"
????.CommandType?=?adCmdStoredProc
????.Prepared?=?True
????.Parameters.Append?.CreateParameter("retVal",?adInteger,?adParamReturnValue)?????...
????.Execute
????Debug.Print?.Parameters("retVal").Value
End?If
的確能返回值，但是前面定義的有output的這時就不能按正常返回了.如下
.....
A?char(1)?output
B?char(1)?output
....

if?表達式?>0???
??begin
???return?2???'註意
??end

.Parameters.Append?.CreateParameter("retVal",?adInteger,?adParamReturnValue)
.Parameters.Append?.CreateParameter("A",?adChar,adParamOutput)
.Parameters.Append?.CreateParameter("B",?adChar,adParamOutput)
返而得不到A和B了.

我把分给你了吗？为什么我的分数没少呢，如果没有我再给一次就是了

帥哥,請問:点击一个按钮，发出一个警告的声音，代码怎么写啊!如果知道,就請告訴一下.本人不勝感激