只要回答就有分？
Private Function getFmt(intType As Integer, logSize As Long) As String
Dim i As Integer
getFmt = ""
'返回的结果串初始置空
Select Case intType
Case dbBoolean
getFmt = getFmt & "\ \ \ \0;\ \ \ \1"
'Boolean 型值转换为0、1，
Case dbByte
getFmt = "@@@@"
Case dbInteger
getFmt = "@@@@@@"
Case dbLong
getFmt = "@@@@@@@@@@"
Case dbCurrency
getFmt = "@@@@@@@@@@"
Case dbSingle
getFmt = "@@@@@@@@@@"
Case dbDouble
getFmt = "@@@@@@@@@@"
Case dbDate
getFmt = "@@@@@@@@@@"
Case dbBinary
getFmt = "@@@@"
Case dbText
If logSize >= 40 Then
'限制一列最多打印40个半角字符
getFmt = "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
Else
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next '调整数值长度为偶数，
以适应汉字制表符
End If
Case dbLongBinary
getFmt = "@@@@"
Case dbMemo
getFmt = "@@@@@@@@@@@@@@@@"
Case dbGUID
getFmt = "@@@@"
Case dbBigInt
getFmt = "@@@@@@@@@@"
Case dbVarBinary
getFmt = "@@@@"
Case dbChar
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbNumeric
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbDecimal
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbFloat
getFmt = "@@@@@@@@@@"
Case dbTime
getFmt = "@@@@@@@@"
Case dbTimeStamp
getFmt = "@@@@@@@@@@"
End Select
End Function
中的getFmt = getFmt & "\ \ \ \0;\ \ \ \1"是什么意思呢？
还有"@@@"这个@又代表什么呢?
问题点数：20、回复次数：6Top
1 楼zhhrlzm（猎鹰）回复于 2001-07-19 13:05:07 得分 5
1、两个字符串合并( getFmt 字符串一 "\ \ \ \0;\ \ \ \1" 字符串二)
2、是一个字符
Top
2 楼RedGuest（Haha）回复于 2001-07-19 13:19:01 得分 5
upTop
3 楼little_hero（天生我才必有用！）回复于 2001-07-19 13:32:38 得分 5
upup!Top
4 楼yuanxy（梦想鸭）回复于 2001-07-19 13:34:40 得分 0
\\\\0;\\\\1
是一个什么字符串呢？
Top
5 楼houyingjun（心神）回复于 2001-07-19 13:36:07 得分 5
你的想法太多了吧，别忘了""里面的只有字符串Top
6 楼yuanxy（梦想鸭）回复于 2001-07-19 13:39:56 得分 0
楼上的朋友我不明白你的话，能说完整吗？Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
