7-23版本窗口table如果是SQLQuery目录树点击查询数据的代码如下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
'DataTables(tbl.Name).AcceptChanges() '接受改变避免行号变色
查询后只要是类似有增加临时列计算流程帐之类的行号就会变色，用AcceptChanges是可以避免，但旧版本都没有这个问题，不知道是正常还是？
加好友 
发短信
Post By：2018/7/20 13:59:00 [显示全部帖子]
