主题：请教老师for ....Next 代码。。（已解决）

放在next下面一行，放在循环外，每次为下次添加新行，数据不全不继续增加！否则，要添加N行，形成阶梯式数据录入。

如果不愿意提前添加行，可以这样，增加一行代码：

Tables("医嘱编辑_Table1").AddNew()
Dim Multi As String = "期效|开始时间|开嘱医生|组号|医嘱内容|用法|频率|单量|总量"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    if e.Form.Controls(Values(Index)).Value = nothing
        Tables("医嘱编辑_Table1").Current.Delete()
        MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示")
        e.Form.Controls(Values(Index)).Select()
        Return
    else
        Tables("医嘱编辑_Table1").Current(Values(Index)) = e.Form.Controls(Values(Index)).Value
    end if
Next

哈哈，我居然也忘了循环问题！

其实这样应该也可以：
Tables("医嘱编辑_Table1").AddNew()
Dim Multi As String = "期效|开始时间|开嘱医生|组号|医嘱内容|用法|频率|单量|总量"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    if e.Form.Controls(Values(Index)).Value = nothing
        Tables("医嘱编辑_Table1").Current.Delete()
        MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示")
        e.Form.Controls(Values(Index)).Select()
        Exit For
        Return
    else
        Tables("医嘱编辑_Table1").Current(Values(Index)) = e.Form.Controls(Values(Index)).Value
    end if
Next

原以为有Return就没有继续了，直接退出循环应该可以。