给你一段代码参考: With rptStockBill.Sections(1).Controls .Item("lblTitle").Caption = "aa" .Item("lblBillNum").Caption = "bb" .Item("lblDate").Caption = "cc" End With With rptStockBill.Sections(2).Controls .Item("lblID").Caption = "序号" .Item("lblName").Caption = "商品名称" .Item("lblType").Caption = "规格型号" End With With rptStockBill.Sections(3).Controls .Item("txtID").DataField = "I_ID" .Item("txtName").DataField = "C_CHNAME" .Item("txtType").DataField = "C_TYPE" End With
With rptStockBill.Sections(1).Controls
.Item("lblTitle").Caption = "aa"
.Item("lblBillNum").Caption = "bb"
.Item("lblDate").Caption = "cc"
End With
With rptStockBill.Sections(2).Controls
.Item("lblID").Caption = "序号"
.Item("lblName").Caption = "商品名称"
.Item("lblType").Caption = "规格型号"
End With
With rptStockBill.Sections(3).Controls
.Item("txtID").DataField = "I_ID"
.Item("txtName").DataField = "C_CHNAME"
.Item("txtType").DataField = "C_TYPE"
End With