主题：动态列表发布后没有出现下拉框

我的动态列表项目发布前运行正常,发布后不能运行(没有出现下拉框),请教是什么原因?如何处理?
此主题相关图片如下：01.jpg


此主题相关图片如下：02.jpg

可能是你的激活码不正确，建议联系官方检测激活码问题。

激活码正确,今天又出现同样错误,发布前数据显示正常,发布后部分数据不能显示,怀疑相关代码没有执行,在对应代码后放置messagebox.show(1234567890),发布后显示正常,请教可能是什么原因,如何处理?
此主题相关图片如下：激活码正确.jpg


此主题相关图片如下：部分数据不显示.jpg


此主题相关图片如下：测试代码正常执行.jpg

 执行了什么代码，贴出来。如果可以，做一个例子上来，供测试。

发布前运行正常,可能原因有什么?请指教一下我再详细全面排查.
此主题相关图片如下：qq图片20131121195529.jpg

执行代码如下:

 

If DataTables.Contains("动力月报") = False Then

    DataTables.Load("动力月报")

End If

 

With Tables("动力日报")

    .StopRedraw

    For Each dr As DataRow In DataTables("动力日报").DataRows

        Dim y As Integer = dr("日期").year

        Dim m As Integer = dr("日期").Month

        Dim d As Integer = dr("日期").day

        Dim str As String = "时间='" & IIF(m=12 And d>=26,y+1,y) & "年" & IIF(d>=26,IIF(m=12,1,M+1),m)  & "月'"

        Dim year As String = IIF(m=12 And d>=26,y+1,y)

        Dim month As String = IIF(d>=26,IIF(m=12,1,M+1),m)

        Dim ddate As Date = new Date(year, month, 26)

        Dim dr0 As DataRow = DataTables("动力月报").Find(str)

        If dr0 IsNot Nothing Then

            dr("新水_月用量") = DataTables("动力日报").Compute("sum(新水_天用量)", "日期 <= #" & dr("日期") & "# and 日期 >= #" & ddate.AddMonths(-1) & "#")

            dr("新水_月成本") = DataTables("动力日报").Compute("sum(新水_天成本)", "日期 <= #" & dr("日期") & "# and 日期 >= #" & ddate.AddMonths(-1) & "#")

                    ddate = new Date(year, 12, 26)

            dr("新水_年用量") = DataTables("动力日报").Compute("sum(新水_天用量)", "日期 <= #" & dr("日期") & "# and 日期 >= #" & ddate.AddYears(-1) & "#")

            dr("新水_年成本") = DataTables("动力日报").Compute("sum(新水_天成本)", "日期 <= #" & dr("日期") & "# and 日期 >= #" & ddate.AddYears(-1) & "#")

                   End If

    Next

    .ResumeRedraw

End With

能否做一个不正常的例子，供测试？

找出问题是

If DataTables.Contains("动力月报") = False Then

    DataTables.Load("动力月报")

End If

代码没有执行,为什么会出现上述代码不执行的情况?请大师指教

 回复8楼，没头没尾，不知道怎么回答你。有例子不？有例子说明这两句代码不执行吗？

 不执行，看看是否前面有什么判断导致不进来了，需要自己调试一下。