请问，通过代码查找并写如表B中，对查找的数据与表B中的数据对比，重复的不写入表B中，不重复的写入表B中Dim aa As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d1 As Date = new Date(cint(aa.Value),12,31)
Dim d2 As Date = new Date(cint(aa.Value),1,1)
Dim d3 As Date =d1.AddYears(1)
MessageBox.Show(d3)
Dim drs As List(of DataRow)
drs = DataTables("表A").Select("(lrsj<=#" & d1 & "# and zt='F') or (jcsj>=#" & d2 & "# and jcsj <= #" & d3 & "#) and zt='T'")
Dim dr1 As DataRow
For Each dr As DataRow In drs
dr1 = DataTables("表B").AddNew
dr1("年度") = d1.Year
dr1("bh") = dr("bh")
dr1("xly") = dr("xly")
dr1("lrsj") =dr("lrsj")
dr1("jcsj") = dr("jcsj")
Next
加好友 
发短信
Post By：2021/5/31 10:34:00 [显示全部帖子]
