'二.增减行:
Select Case e.StripItem.Name
Case "增加行" '保存代码
Tables("出纳录入收款数据_Table1").AddNew()
Case "删除行" '保存代码
With Tables("出纳录入收款数据_Table1")
If .current IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("是否确定要删除此单?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
.Current.Delete()
Else
Return
End If
End If
.Save()
End With
End Select
'
'三.审核
Select Case e.StripItem.Name
Case "审核" '保存代码
For Each dt As DataRow In DataTables("出纳录入收款数据_Table1").Select("[日期] is not null")
Dim r As DataRow = DataTables("出纳数据记账源").SQLFind("[前缀] = '" & (e.Form.Controls("TextBox2").Text).SubString(0,2) & "' And Month([日期]) = " & Month(e.Form.Controls("rq").Value) & " And [出纳账安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "'")
If User.IsRole("审核") Then
e.Form.Controls("shr").text = User.Name
e.Form.Controls("RadioButton1").text = True
r("审核人") = e.Form.Controls("shr").text
r("已审核") = True
r.locked = True
Else
MessageBox.show("你无审批权限!")
End If
Next
DataTables("出纳数据记账源").Save()
Case "反审核" '保存代码
For Each dt As DataRow In DataTables("出纳录入收款数据_Table1").Select("[日期] is not null")
Dim r As DataRow = DataTables("出纳数据记账源").SQLFind("[前缀] = '" & (e.Form.Controls("TextBox2").Text).SubString(0,2) & "' And Month([日期]) = " & Month(e.Form.Controls("rq").Value) & "# And [出纳账安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "'")
If User.IsRole("审核") Then
e.Form.Controls("shr").text = Nothing
e.Form.Controls("RadioButton1").text = False
r("审核人") = Nothing
r("已审核") = False
r.locked = False
Else
MessageBox.show("你无审批权限!")
End If
Next
DataTables("出纳数据记账源").Save()
End Select
'四.打印设置
Select Case e.StripItem.Name
Case "打印设置最小打印行数" '导出代码
e.Form.Controls("Table1").MinRows = 6
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
'设置最大打印行数
Case "设置最大打印行数" '导出代码
e.Form.Controls("Table1").MaxRows = 10
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
End Select
'五.打印
Select Case e.StripItem.Name
Case "预览" '打印预览
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview() '打印预览
Case "打印" '打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()
End Select
'六.导出
Select Case e.StripItem.Name
Case "导出" '导出代码
e.StripItem.HideDropDown()
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables("出纳录入收款数据_Table1").SaveExcel(dlg.FileName, "出纳录入收款数据") '保存文件
End If
End Select
加好友 
发短信
Post By：2022/3/18 14:04:00 [只看该作者]
此主题相关图片如下：qq图片20220318133839.png
