- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 0728新版查询表的差异 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122987)
-- 发布时间：2018/8/6 11:40:00
-- 0728新版查询表的差异
此主题相关图片如下：查询表行号变色.jpg
如上图与原来0319完全相同的代码，但原来版本点击目录树加载查询数据后计算库存时间左边行号不会变色，新版就会
目录树中点击的代码如下：
Dim tbl As Table = e.Form.Controls("Table1").Table
Functions.Execute("QueryTreeClick",e,tbl) \'查询数据
\'---计算显示库存时间
If DataTables(tbl.name).DataCols.Contains("库存时间(天)") = False Then
DataTables(tbl.name).DataCols.Add("库存时间(天)", Gettype(Integer)) \'增加临时列
End If
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "SE LECT 产品编码,MAX(进出日期) AS 进出日期 FROM dbo.uv_ck111 GROUP BY 产品编码"
Dim dt As DataTable = cmd.ExecuteReader()
Dim d1 As Date = Date.Today
tbl.StopRedraw
For Each r As Row In tbl.rows
If r("总库存") <> 0 Then \'库存为0的不显示帐龄
Dim dr As DataRow = dt.Find("产品编码 = \'" & r("产品编码") & "\'")
If dr IsNot Nothing Then
Dim d2 As Date = dr("进出日期")
Dim tp As TimeSpan = d1 - d2
r("库存时间(天)") = tp.TotalDays
End If
End If
Next
虽然没有实质的影响，但也觉得有点不同，新版的这种改变正常吗？
谢谢！
-- 发布时间：2018/8/6 11:48:00
--
回复楼上，应该是一个【改进】，之前sqlQuery表格无法判断rowstate属性，现在可以判断了。
如果你觉得影响，你可以加上 AcceptChanges http://www.foxtable.com/webhelp/scr/2365.htm
-- 发布时间：2018/8/6 12:17:00
--
我现在就是这样处理的，只是提醒一下看是是会导致其他影响
-- 发布时间：2018/8/6 12:23:00
--
不会有其它影响。