If now_add Then
        old = RS.Bookmark
        For i = 0 To 53
            Text1(i).Locked = False
        Next
        Toolbar1.Buttons(6).Caption = "确定"
        Toolbar1.Buttons(7).Caption = "取消"
        For i = 1 To 5
            Toolbar1.Buttons(i).Enabled = False
        Next
        Command1.Visible = True
        For i = 0 To 27
            Label8(i).Visible = True
        Next
        Toolbar1.Buttons(8).Enabled = False
        Toolbar1.Buttons(9).Enabled = False
    Else
        RS.CancelUpdate
        RS.Bookmark = old
        Toolbar1.Buttons(6).Caption = "添加"
        Toolbar1.Buttons(7).Caption = "更新"
        Command1.Visible = False
        For i = 1 To 5
            Toolbar1.Buttons(i).Enabled = True
        Next
        Toolbar1.Buttons(8).Enabled = True
        Toolbar1.Buttons(9).Enabled = True
        For i = 0 To 53
            Text1(i).Locked = True
        Next
        For i = 0 To 27
            Label8(i).Visible = False
        Next
    End If
    now_add = Not now_add
    Exit Sub
我点取消DataGrid无法返回好象RS.CancelUpdate       RS.Bookmark = old这两个没执行。数据卡在新建行动不了
另一个窗体正常代码是一样的

[此贴子已经被作者于2022-5-16 12:10编辑过]

要写成这样

函数写成这样才会有返回值：

Function xxx()
.......
End Function