主题：代码错误求修正

 

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 DataRow In DataTables("培训课时统计表").Select("教师姓名 = '" & mr("教师姓名") & "'")
        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
    Tables("培训课时统计表").Filter = "工资已发 = false or 工资已发 is null"
    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

2楼代码没有问题。

 

3楼代码

 

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

 

改成

 

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

DataTable 改成 DataTables

那这样写，还不行，就上传实例。

   

    Dim xm As String = mr("教师姓名")

    For Each r As DataRow In DataTables("培训课时统计表").Select("教师姓名 = '" & xm & "'")
        r("工资已发") = True
        r.Locked = True
        r.Save
    Next