If e.Book.TempLate = "SalesInvoice"Then If e.region = "SaleOrderDetail"Then If e.DataRowIsNothingOrElse e.DataRow.IsNull("Lot") Then'如果是空行或者Lot列为空 Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片 img.Save(ProjectPath & "Images\BarCode.gif") Else'否则生成条形码图片 这里写代码从数据库获取图片数据并保存到Images目录中 EndIf EndIf EndIf