Dim sp As WinForm.SplitPanel = e.Form.Controls("SplitContainer1").Panel1 Dim doc As PrintDoc = e.Form.GernatePrintDoc(sp) Dim t As Table = Tables("收费明细") For i As Integer = 0 To t.Rows.Count -1 If t.Rows(i)("打印状态") = 0 Then t.Position = i doc.Preview() r.Rows(i)("打印状态") = 1 Exit For End If Next
加好友 
发短信
Post By：2013/3/12 8:16:00 [显示全部帖子]
