Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim t1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim t2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim dt1 As Date = #1/1/2014#
Dim dt2 As Date = Date.Today
Dim s As String = "select .............' order by d.rq" '已查出一堆数据存放在临时表中 有 编码 列
cmd.CommandText = s
Dim d As DataTable = cmd.ExecuteReader
Output.Show(s)
'Dim dr1 As DataRow = d.DataRows
'For Each dr2 As DataRow In DataTables("Table1").Select("编码 = '" & & "'")
'Next 我想要查找编码在临时表中是否有相同的编码怎么表示
业务描述:
窗口按时间段加载每周的数据, 其中编码列 需要从 临时表中查找,如果没有重复的编码,表示是新编码,需要加样式以提示用户
但是在DrawCell中代码写太多了,很卡,请问有什么别的方法吗?
窗口中的表是SQLQuery
加好友 
发短信
Post By：2018/1/16 17:10:00 [只看该作者]
