在列表框中显示不同的值答案

【问题标题】：Displaying a different value in listbox在列表框中显示不同的值
【发布时间】：2014-04-28 05:01:44
【问题描述】：

我有一个 Access 2007 应用程序，我有一个多选项卡表单。在其中一个选项卡上是三个在打开时重新查询的列表框。数据是通过 sql passthrough 查询拉取的。下面是查询。该查询用于提取预算小时数、实际小时数等和差异。当他们没有任何时间但为项目计费时，预算小时数等于 1。我希望显示 0 而不是 1。

strSQL = "select distinct substring(tbl_Project_Staffing_Profile.Resource_Name,1,255) as [RESOURCE NAME],"
            strSQL = strSQL & " tbl_Project_Staffing_Profile.ProjectStatus as [PROJECT STATUS], tbl_Project_Staffing_Profile.orig_Budget as [BUDGETED HOURS], tbl_Project_Staffing_Profile.FTE_used as [HOURS USED],"
            strSQL = strSQL & " tbl_Project_Staffing_Profile.ETC as [ESTIMATE TO COMPLETE], tbl_Project_Staffing_Profile.tot_var as [TOTAL VARIANCE TO DATE] from tbl_Project_Staffing_Profile , tbl_ProjectMaster"
            strSQL = strSQL & " where tbl_Project_Staffing_Profile.Project_Request_ID = tbl_ProjectMaster.ProjectRequestID"
            strSQL = strSQL & " and tbl_ProjectMaster.ProjectMasterID = " & GetProjectMasterID() & ";"
            DoCmd.DeleteObject acQuery, "x_query_Project_Staffing_Profile"
            Call CreatetmpSQLPassthrough(strSQL, "x_query_Project_Staffing_Profile")
            strSQL = "x_query_Project_Staffing_Profile"
            DoEvents
                    Me.TabCtl0.Pages(iCurrTabPage).Controls(0).RowSource = strSQL


                    List231.Requery
                    List233.Requery
                    List235.Requery

【问题讨论】：

标签： vba listbox ms-access-2007

【解决方案1】：

试试IIf：

strSQL = "select distinct substring(tbl_Project_Staffing_Profile.Resource_Name,1,255) as [RESOURCE NAME]," & _
        " tbl_Project_Staffing_Profile.ProjectStatus as [PROJECT STATUS], IIF(tbl_Project_Staffing_Profile.orig_Budget=1, 0, tbl_Project_Staffing_Profile.orig_Budget) as [BUDGETED HOURS], tbl_Project_Staffing_Profile.FTE_used as [HOURS USED]," & _
        " tbl_Project_Staffing_Profile.ETC as [ESTIMATE TO COMPLETE], tbl_Project_Staffing_Profile.tot_var as [TOTAL VARIANCE TO DATE] from tbl_Project_Staffing_Profile , tbl_ProjectMaster" & _
        " where tbl_Project_Staffing_Profile.Project_Request_ID = tbl_ProjectMaster.ProjectRequestID" & _
        " and tbl_ProjectMaster.ProjectMasterID = " & GetProjectMasterID() & ";"

【讨论】：

我试过了，列表框出现了空白值
那么这就引出了一个问题，CreatetmpSQLPassthrough() 在做什么？它是否创建了对 SQL Server 之类的传递查询？问题的标签没有提到这样的事情。如果是这样，请说出来并编辑您的问题以包含适当的标签。