2、如果没有发放工资，只是查看然后关闭了窗口，怎样取消图一中本次操作新增的勾选
3、如果单击”上一步“返回图1窗口，也是取消勾选的操作

求大师帮忙修改

下面分别是”统计“和”工资发放“、”上一步“按钮的代码：

统计：

Dim g As New GroupTableBuilder("统计表1", DataTables("培训课时统计表"))
g.Groups.AddDef("教师姓名")
g.Groups.AddDef("授课内容")
g.Totals.AddDef("授课内容", AggregateEnum.Count,"签到次数")
g.Filter = "教师姓名 = \'" & e.Form.Controls("ComboBox1").Text & "\'and 已结算 = false"
g.Build(False)

DataTables("教师课时统计表").DataRows.Clear
Dim f As new Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.SourceCols = "教师姓名,授课内容,签到次数" \'指定数据来源列
f.DataTable = DataTables("教师课时统计表") \'指定数据接收表
f.DataCols = "教师姓名,授课内容,签到次数" \'指定数据接收列
f.Fill() \'填充数据

MainTable = Tables("教师课时统计表")
DataTables.Unload("统计表1")

For Each r As DataRow In DataTables("培训课时统计表").Select("教师姓名 = \'" & e.Form.Controls("ComboBox1").Text & "\' and 已结算 = false")
    r("已结算") = True
    r.Save
Next

DataTables("培训课时统计表").Save
DataTables("教师课时统计表").Save
forms("培训课时统计表").close
forms("教师工资结算表").show

工资发放：

Dim mr As Row =Tables("培训课时统计表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("教师姓名") &" 您是否已核对过表格中各项统计及金额无误,确定领取工资?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   
    For Each r As Row In Tables("教师课时统计表").Rows
        r("工资已发") = True
        r.Locked = True
        r.Save
    Next
    For Each r1 As Row In Tables("培训课时统计表").Rows
        r1.Locked = True
        r1.Remove
    Next
   
   
    Dim nma()As String = {"教师姓名","教师工资","授课内容"}  \'A表数据来源列
    Dim nmb()As String = {"相关人员","账目金额","名目"}  \'B表数据接收列
    Dim dr3 As Row = Tables("教师课时统计表").Current
    Dim dr4 As Row = Tables("经营相关账目").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr4(nmb(i)) = dr3(nma(i))
    Next
   
    MessageBox.Show(mr("教师姓名") &" 您的工资已结算完毕,发放到您的手中!是不是要请客哦!O(∩_∩)O~","提示")
End If
e.Form.Controls("Button1").Enabled = False
e.Form.Controls("Button3").Enabled = False
e.Form.Controls("Button4").Enabled = False

DataTables("培训课时统计表").Save
DataTables("经营相关账目").Save

上一步

forms("教师工资结算表").close

For Each r As Row In Tables("培训课时统计表").Rows
    r("已结算") = False
    r.Locked = False
    r.Save
Next

forms("培训课时统计表").show