主题：[讨论]来一个超级困难的问题,麻烦大哥们指导.

感觉不单是这样，.....(可能我理解错了）

此主题相关图片如下：未命名.jpg


如2008-12-03这天：
固定的消费就是（应包括停止时间为空）
ACC
DDB
POP
临时消费是：
YYN

此主题相关图片如下：snap3.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目报表.rar

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