主题：录入窗口中的一些问题请大师指点

1、3、4

Dim mr As Row =Tables("学员一览表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("姓名") &" 是否缴纳学费?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    mr("培训新缴") = e.Form.Controls("xxxx").Text
    mr("课程") = e.Form.Controls("xxxx").Text

    Dim nma()As String = {"姓名","培训新缴","课程"}  'A表数据来源列
    Dim nmb()As String = {"相关人员","账目金额","名目"}  'B表数据接收列
   
    Dim dr As Row = Tables("经营相关账目").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = mr(nma(i))
    Next
    MessageBox.Show(mr("姓名") &" 缴费完成.","提示")
End If
mr.Save