平台 窗体 自动生成代码有误

qwe595567423

Private Sub cmdAdd_Click()
    '【修改提示】
    If gf_GetChange Then
        Select Case gf_Msgbox(gf_GetLangValue("TextChangeTip", "The text is changed. Do you want to save it ?"), vbYesNoCancel)
            Case vbYes          '按下：[是]   验证和保存数据
                If Not mf_SaveData Then Exit Sub
            Case vbNo           '按下：[否]   直接新增，无需理会
                gf_IsChange False
            Case vbCancel       '按下：[取消]
                Exit Sub
        End Select
    End If
   
    '【清空数据】
    gf_ClearFormValues Me
   
    '【恢复设置】
    '恢复主键：恢复非自动编号和自定义编号的字段，设为可用
    Me![GYSFLID].Enabeld = True
   
    '恢复权限
    mf_EditRight True   '可能没有编辑权限。新增数据时，恢复可以保存
End Sub

tmtony

谢谢提示，明天检查一下。看看最新版是否还存在这个问题

qwe595567423

删除按钮, 删除提示的代码 没有在下一行写代码,导致if出错

qwe595567423

Me![GYSFLID].Enabeld = True 中的 Enabeld 错了