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

 看看是这样不？

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 & "必须输入内容")
        Return
    ElseIf r(nm2) Like "*遥控*" AndAlso r.isnull(nm1) Then
        messagebox.show("遥控项目必须填写设备频率")
        Return
    End If
Next

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

 估计是这句代码错了。

ElseIf r(nm2) Like "*遥控*" AndAlso r.isnull(nm1) Then

 我多加了一个空格，你删除之