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

2 = str2 & "┷"
    End If
  Next
  strDy(0) = "表格标题"
  注释：通过在标题前增加空格可使标题居中
  strDy(1) = ""
  strDy(2) = Format(Now, " 打印日期：
yyyy年 m月 d日")
  strDy(3) = str0
  strDy(4) = str
  strDy(5) = str1
  intDc = 6
  .MoveFirst
  Do While Not .EOF
   str = "┃"
   For i = 0 To .Fields.Count - 1
      If IsNull(.Fields(i).Value) Then    
注释：处理 Null 值
        If i = .Fields.Count - 1 Then
          str = str & Format(" ", Fmt(i)) & "┃"
        Else
          str = str & Format(" ", Fmt(i)) & "│"
        End If
      Else
        If i = .Fields.Count - 1 Then
          str = str & Format(Left$(.Fields(i).
Value, Len(Fmt(i))), Fmt(i)) & "┃"
        Else
          str = str & Format(Left$(.Fields(i).
Value, Len(Fmt(i))), Fmt(i)) & "│"
        End If
      End If
    Next
    strDy(intDc) = strDy(intDc) & str
    intDc = intDc + 1
    .MoveNext
  Loop
  strDy(intDc) = str2
  End With
End Sub

---- 在实际编程中还要排除二进制数据字段，全角与半角字符的匹配调整，处理数据中出现的换行符、回车符、制表符，等等，限于篇幅，这里不于介绍。
---- 2．rdoResultset对象

---- rdoResultset对象的表格自动生成方法与Recordset对象的方法相似，在处理过程中把Recordset对象的RecordCount属性用rdoResultset对象的RowCount属性替换，Fields集合用rdoColumns替换，Field对象用rdoColumn替换，其余相同。例如：

---- 引用Data控件MyData结果集中第三个字段的名称用：MyData.Recordset.Fields(3).Name。

---- 引用RDC控件MyRDC相应字段的名称用: MyRDC.Resultset.rdoColumns(3).Name。

三．表格的输出
---- 表格的输出包括二个部分，一是屏幕预览，二是打印机输出。屏幕预览是把存放在数组中的表格通过在PictureBox控件上调用 Print方法显示出来而实现的。打印输出是把同样的内容通过 Printer对象的 Print方法实现的。下面例示打印机输出的实现方法：
  Printer.Font.Name = "黑体"  
       注释：设置标题字体
  Printer.Font.Size = 18           
  注释：设置标题字体大小
  Printer.Print strDy(0)          &nb