提取控件执行代码
Dim y As Integer = e.Form.Controls("年").text
Dim m As Integer = e.Form.Controls("月").text
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Products As List(Of String)
Products = DataTables("学生排课档案").GetValues("教师姓名","日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")
Dim nr As Row
For Each Product As String In Products
nr = Tables("统计结算表.统计结算课时提成明细").addnew()
nr("姓名") = Product
Tables("统计结算表.统计结算课时提成明细").Current.Save() '保存当前行
Next
问题.如何在重复点击提取按钮的时候,清空上一次的提取内容,避免重复提取.
请指教
加好友 
发短信
Post By：2020/11/18 19:56:00 [显示全部帖子]
