VB通用数据表格输出程序的设计

;  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 = "@@@@@@@@"
  &