Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
深有同感。
呵呵,希望你学有所成后,也能象don这么无私。
只要有时间,这是一定的,只是don大哥的水平,怕是一年半载也赶不上呀...
光是上面的代码要消化掉就得花费不少时间....
Dim tb1 As string = forms("窗口3").Controls("TextBox1").text
Dim tb2 As date = forms("窗口3").Controls("TextBox2").text
Dim gdkongs As List(of DataRow) = DataTables("固定").Select("客户ID = '"& tb1 &"' and 停止时间 Is null")
For Each gdkong as datarow in gdkongs
Dim dr As Row = Tables("表F").AddNew()
dr("客户ID") = tb1
dr("项目") = gdkong("项目")
dr("单价") = gdkong("单价")
dr("数量") = gdkong("数量")
next
Dim gdrs As List(of DataRow) = DataTables("固定").Select("客户ID = '"& tb1 &"' and 开始时间 >= '"& tb2 &"' and 停止时间 is not null ")
For Each gdr as datarow in gdrs
Dim dr As Row = Tables("表F").AddNew()
dr("客户ID") = tb1
dr("项目") = gdr("项目")
dr("单价") = gdr("单价")
dr("数量") = gdr("数量")
next
Dim lxrs As List(of DataRow) = DataTables("临时").Select("客户ID = '"& tb1 &"' and 使用时间 = '"& tb2 &"' ")
For Each lxr as datarow in lxrs
Dim dr As Row = Tables("表F").AddNew()
dr("客户ID") = tb1
dr("项目") = lxr("项目")
dr("单价") = lxr("单价")
dr("数量") = lxr("数量")
next