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