窗口与控件事件

收据打印_Button1_Click

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim dr As DataRow = Tables("土地情况.合同管理.交租情况").Current.DataRow

If dr("确定") = False Then

    MessageBox.Show("只有[确定]勾选才能打印!")

    e.Cancel = True

Else

    doc.Preview

End If

收据打印_DateTimePicker1_DataFormat

e.Value = Format(e.Value,"yyyy年MM月dd日")

收据打印_DateTimePicker4_DataFormat

e.Value = Format(e.Value,"yyyy年MM月dd日")

收据打印_DateTimePicker5_DataFormat

e.Value = Format(e.Value,"yyyy年MM月dd日")

收据打印_Label18_DataFormat

e.Text = "￥ " & e.Value & "元"

收据打印_Label22_DataFormat

e.Text = CUMoney(e.Value)

收据打印_Label75_DataFormat

e.Text = CUMoney(e.Value)

收据打印_Label76_DataFormat

e.Text = CUMoney(e.Value)

收据打印_Label77_DataFormat

e.Text = "￥ " & e.Value & "元"

收据打印_Label78_DataFormat

e.Text = "￥ " & e.Value & "元"