主题：这条代码如何修改 请专家指教！

这条代码如何修改  请专家指教！

Tables("临时报名表").Focus()
Tables("临时报名表").StartEditing()
Dim nms() As String = { "竞赛名称","区","中小学","学校","姓名","参赛项目","辅导教师" }
Dim nm1 As String = "设备频率"
Dim nm2 As String = "参赛项目"
Dim r As Row = Tables("临时报名表").Current
For Each nm As String  In nms
    If r.isnull(nm) Then
        messagebox.show(nm & "必须输入内容")
If r.(nm2 Like " % 遥控 % ")  And r.isnull(nm1) Then
    messagebox.show("遥控项目必须填写设备频率")
        Return
    End If

End If

Next

Tables("临时报名表").Current.Clone()