nhannt4 > 26-03-14, 12:15 PM
(26-03-14, 01:25 AM)hugox03 Đã viết: Còn việc này mình muốn hỏi nữa !
hàng ( Tổng Cộng : )
+Nếu mình muốn thêm 1 hàng nữa như : tiền thuế , đã đưa , còn lại (Tổng cộng + Thuế - Đã trả = còn lại ). Thì mình sữa hoặc thêm chỗ nào vậy ?
Mã PHP:i = 2
Tong = 0
Do While Not rst.EOF
doc.ActiveDocument.Tables(2).Cell(i, 1).Range.text = rst.Fields![MaHH].Value
doc.ActiveDocument.Tables(2).Cell(i, 2).Range.text = rst.Fields![TenHH].Value
doc.ActiveDocument.Tables(2).Cell(i, 3).Range.text = rst.Fields![Maloaihang].Value
doc.ActiveDocument.Tables(2).Cell(i, 4).Range.text = rst.Fields![SoLuong].Value
doc.ActiveDocument.Tables(2).Cell(i, 5).Range.text = rst.Fields![Donvi].Value
doc.ActiveDocument.Tables(2).Cell(i, 6).Range.text = Format(rst.Fields![DonGia].Value, "##,##0")
doc.ActiveDocument.Tables(2).Cell(i, 7).Range.text = Format(rst.Fields![ThanhTien].Value, "##,##0")
Tong = Tong + rst.Fields![ThanhTien].Value
i = i + 1
rst.MoveNext
If Not rst.EOF Then doc.ActiveDocument.Tables(2).Rows.Add
Loop
doc.ActiveDocument.Tables(2).Rows.Add
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Merge MergeTo:=doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=6)
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Size = 13
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Italic = False
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.Font.Bold = True
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range.text = Form_FormTam.lbTongcong.Caption
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=2).Range.Font.Bold = True
doc.ActiveDocument.Tables(2).Cell(Row:=i, Column:=2).Range.text = Format(Tong, "##,##0")