- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态列表发布后没有出现下拉框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42703)
-- 发布时间：2013/11/19 19:47:00
-- 动态列表发布后没有出现下拉框
我的动态列表项目发布前运行正常,发布后不能运行(没有出现下拉框),请教是什么原因?如何处理?
此主题相关图片如下：01.jpg
此主题相关图片如下：02.jpg
-- 发布时间：2013/11/19 20:23:00
--
可能是你的激活码不正确，建议联系官方检测激活码问题。
-- 发布时间：2013/11/21 19:36:00
--
激活码正确,今天又出现同样错误,发布前数据显示正常,发布后部分数据不能显示,怀疑相关代码没有执行,在对应代码后放置messagebox.show(1234567890),发布后显示正常,请教可能是什么原因,如何处理?
此主题相关图片如下：激活码正确.jpg
此主题相关图片如下：部分数据不显示.jpg
此主题相关图片如下：测试代码正常执行.jpg
-- 发布时间：2013/11/21 19:39:00
--
执行了什么代码，贴出来。如果可以，做一个例子上来，供测试。
-- 发布时间：2013/11/21 19:57:00
--
发布前运行正常,可能原因有什么?请指教一下我再详细全面排查.
此主题相关图片如下：qq图片20131121195529.jpg
-- 发布时间：2013/11/21 20:01:00
--
执行代码如下:
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
-- 发布时间：2013/11/21 20:03:00
--
能否做一个不正常的例子，供测试？
-- 发布时间：2013/11/21 21:08:00
--
找出问题是
If DataTables.Contains("动力月报") = False Then
DataTables.Load("动力月报")
End If
代码没有执行,为什么会出现上述代码不执行的情况?请大师指教
-- 发布时间：2013/11/21 21:15:00
--
回复8楼，没头没尾，不知道怎么回答你。有例子不？有例子说明这两句代码不执行吗？
-- 发布时间：2013/11/21 21:18:00
--
不执行，看看是否前面有什么判断导致不进来了，需要自己调试一下。