Access快速开发平台--在Sys_LookupList表中添加的数据无法显示在查阅列表维护的解决方法

时　间:2018-11-13 12:44:26
作　者:伊西军   ID：63090  城市：临汾
摘　要:最近有使用Access快速开发平台的朋友询问：为什么我直接在Sys_LookupList表中添加的数据，无法显示在 查阅列表数据维护 中呢？
正　文:

1、问题描述：

在Sys_LookupList表中手动录入的数据，无法显示在 查阅列表数据维护 中

2、问题解答：

是因为数据不完整导致的：仔细观察可以看到，查阅列表每个类别中都有一天Value为空的记录，但却无法手动添加。

虽然查阅列表这部分的加载和新增的功能代码自己是可以修改的，但是不建议大家去修改，所以提供以下方法供大家使用：

'手动添加数据到Sys_LookUpLis数据不现实的解决方法
'复制到任意模块 然后按F5运行即可
Public Function PrefectValueToLookUpList()
    Dim rstGroup As Object
    Dim clsPB As PopupProgressBar
    Dim lngI  As Long
    Set clsPB = CreateInstance("PopupProgressBar")
    clsPB.StatusText = "正在更新..."
    Set rstGroup = CurrentDb.OpenRecordset("select Item from Sys_LookUpList group by Item")
    clsPB.Max = rstGroup.RecordCount
    Do Until rstGroup.EOF
        If DCount("*", "Sys_LookUpList", "Item=" & sqltext(rstGroup![Item]) & " and value=''") = 0 Then
            CurrentDb.Execute "insert into Sys_LookUpList values(" & sqltext(rstGroup![Item]) & ",''," & DMax("SN", "Sys_LookUpList", "Item=" & sqltext(rstGroup![Item])) + 1 & ",'','')"
        End If
        lngI = lngI + 1
        clsPB.Value = lngI
        rstGroup.MoveNext
    Loop
    clsPB.StatusText = "更新完成！"
    MsgBox "更新完成！", vbInformation
End Function