主题：根据逻辑列判断问题

下面是我编写的一段按钮代码，由于‘一键完成’的功能比较都，所以写着写着自己都乱了。。

红色字部分，单击按钮后，将 mr 表中该逻辑列=True 的行删除，该怎么写？

然后绿色字部分 能不能 隐藏为True的行？

 

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

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

If mr("已结算") = True Then

。。。。。

mr Save
DataTables("经营相关账目").Save
DataTables("教师课时统计表").Save
 MessageBox.Show(mr("教师姓名") &" 签到成功","提示")
End If

If mr("已结算") = True Then

mr.Delete

 

不是吧。。。只是删除为True的行 其他没选定的 数据保留

。。。那我这段代码哪里出错了吗？？为什么执行后  没反应呢？

 

Dim mr As Row =Tables("培训课时统计表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("教师姓名") &" 您是否已核对过表格中各项统计及金额无误,确定领取工资?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    If mr("已结算") = True Then
        mr.Delete
    End If
    mr.save
   
    For Each r As Row In Tables("教师课时统计表").Rows
        r("工资已发") = True
        r.Locked = True
        r.Save
    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
   
    DataTables("经营相关账目").Save
    DataTables("教师课时统计表").Save
    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

。。。。好像知道问题了。。我应该是要删除Tables（"培训课时统计表"）中（"已结算"）列=True的行 才对把

是 DataTables("订单").DeleteFor"已结算 = True   这样吧