m4.bas

办公自动化 vb+server2

 Dim tbl(6) As New Table
 Dim zstrTableName(6) As String
 zstrTableName(0) = "地籍"
 zstrTableName(1) = "定线"
 zstrTableName(2) = "计划内"
 zstrTableName(3) = "建筑物位置测定"
 zstrTableName(4) = "竣工"
 zstrTableName(5) = "零星验字工程"
 zstrTableName(6) = "松北"
 
 For i = o To 6
 zcat.ActiveConnection = zpstr
   tbl(i).Name = zstrTableName(i)   '表的名称s
          tbl(i).Columns.Append "单位名称", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "工程编号", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "时间", adDate, 200    '表的第一个字段
          tbl(i).Columns.Append "项目名称1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "总 计", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "其它1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "其它2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "其它3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "总计", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "总计系数", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "总计系数2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期1", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期2", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "备注", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "项目名称9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单位9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "数量9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "单价9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "系数9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "技术费9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "合计9", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额3", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额4", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额5", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额6", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额7", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "作业组8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "超期8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "产值8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "组金额8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "队金额8", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "院长签字", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "院长注释", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "主管院长签字", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "主管院长注释", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "生产科长", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "生产科长注释", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "结算员", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "结算员注释", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "实际回款金额", adVarWChar, 200     '表的第一个字段
          tbl(i).Columns.Append "打折", adVarWChar, 200     '表的第一个字段

  zcat.Tables.Append tbl(i)    '建立数据表'
 Next

  zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "地籍", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(0).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(0).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(0).ListItems.Item(m).SubItems(ghz)
        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close

   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "定线", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(1).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(1).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(1).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close

   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "计划内", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(2).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(2).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(2).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close

   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "建筑物位置测定", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(3).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(3).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(3).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close



   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "竣工", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(4).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(4).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(4).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close



   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "零星验字工程", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(5).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(5).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(5).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close
   zconn.Open zpstr
  zrs.CursorLocation = adUseClient
  zrs.Open "select * from " & "松北", zconn, adOpenKeyset, adLockPessimistic
 For m = 1 To Form2.ListView1(6).ListItems.Count
   With zrs
        .AddNew
        .Fields(0).Value = Form2.ListView1(6).ListItems.Item(m)
        For ghz = 1 To 123
            .Fields(ghz).Value = Form2.ListView1(6).ListItems.Item(m).SubItems(ghz)

        Next
  End With
    zrs.MoveNext
  Next
  zrs.Close
  zconn.Close
  Dim ln As Long