Private Sub A到W_Click()
Dim doc As New Word.Application
Dim Tb As Word.Table
Dim i As Long
Dim ii As Long
Dim Ⅲ As Long
Dim V As Long
If Me.Text8 = "" Then 'Text8文本框是选择一个装置的名称，这样下面的数据就是某个装置的数据，此项是必须的选择项。
Cancel = False
MsgBox "请选择正确的值"
Exit Sub
Else
doc.Documents.Open FileName:=CurrentProject.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日") & "工程物资检验及验收计划.doc" '打开更名后的文件。
doc.Visible = True
If Me.Text8 = "" Then
Cancel = False
Else
GoTo 50
50:
Set Tb = doc.ActiveDocument.Tables(1)
GoTo 500
End If
500:
Tb.Cell(1, 1).Range = "ACCESS"
Tb.Cell(1, 2).Range = "工程物资检验及验收计划"
Tb.Cell(1, 3).Range = "TY-04-JL-10"
Tb.Cell(2, 1).Range = "项目名称"
Tb.Cell(2, 2).Range = IIf(Me.Text1 <> "", Me.Text1, "")
Tb.Cell(2, 3).Range = "编制"
Tb.Cell(2, 4).Range = IIf(Me.编制人 <> "", Me.编制人, "")
Tb.Cell(2, 5).Range = "编制日期"
Tb.Cell(2, 6).Range = IIf(Me.编制日期 <> "", Me.编制日期, "")
Tb.Cell(3, 3).Range = "审批"
Tb.Cell(3, 4).Range = IIf(Me.审批人 <> "", Me.审批人, "")
Tb.Cell(3, 5).Range = "审批日期"
Tb.Cell(3, 6).Range = IIf(Me.审批日期 <> "", Me.审批日期, "")
Tb.Cell(4, 1).Range = "序号"
Tb.Cell(4, 2).Range = "物资名称"
Tb.Cell(4, 3).Range = "材质"
Tb.Cell(4, 4).Range = "规格型号"
Tb.Cell(4, 5).Range = "测量项目"
Tb.Cell(4, 6).Range = "检验要求"
Tb.Cell(4, 7).Range = "执行标准"
Tb.Cell(4, 8).Range = "外委项目"
Tb.Cell(4, 9).Range = "责任人"
Tb.Cell(4, 10).Range = "备注"
For i = 1 To Me.工程物资检验及验收计划.Form.RecordsetClone.RecordCount
If i > Tb.Rows.Count Then Exit Sub
Me.工程物资检验及验收计划.Form.SelTop = i
Tb.Cell(i + 4, 1).Range = IIf(Me.工程物资检验及验收计划.Controls("序号").Value <> "", Me.工程物资检验及验收计划.Controls("序号").Value, "")
Tb.Cell(i + 4, 2).Range = IIf(Me.工程物资检验及验收计划.Controls("物资名称").Value <> "", Me.工程物资检验及验收计划.Controls("物资名称").Value, "")
Tb.Cell(i + 4, 3).Range = IIf(Me.工程物资检验及验收计划.Controls("材质").Value <> "", Me.工程物资检验及验收计划.Controls("材质").Value, "")
Tb.Cell(i + 4, 4).Range = IIf(Me.工程物资检验及验收计划.Controls("规格型号").Value <> "", Me.工程物资检验及验收计划.Controls("规格型号").Value, "")
Tb.Cell(i + 4, 5).Range = IIf(Me.工程物资检验及验收计划.Controls("测量项目").Value <> "", Me.工程物资检验及验收计划.Controls("测量项目").Value, "")
Tb.Cell(i + 4, 6).Range = IIf(Me.工程物资检验及验收计划.Controls("检验要求").Value <> "", Me.工程物资检验及验收计划.Controls("检验要求").Value, "")
Tb.Cell(i + 4, 7).Range = IIf(Me.工程物资检验及验收计划.Controls("执行标准").Value <> "", Me.工程物资检验及验收计划.Controls("执行标准").Value, "")
Tb.Cell(i + 4, 8).Range = IIf(Me.工程物资检验及验收计划.Controls("外委项目").Value <> "", Me.工程物资检验及验收计划.Controls("外委项目").Value, "")
Tb.Cell(i + 4, 9).Range = IIf(Me.工程物资检验及验收计划.Controls("责任人").Value <> "", Me.工程物资检验及验收计划.Controls("责任人").Value, "")
Tb.Cell(i + 4, 10).Range = IIf(Me.工程物资检验及验收计划.Controls("备注").Value <> "", Me.工程物资检验及验收计划.Controls("备注").Value, "")
Next
doc.ActiveDocument.Save
Set doc = Nothing
Set Tb = Nothing
End If
End Sub
