主题：做数据统计时遇到的问题（开发者密码是888）

Dim EndDate3 As Date
EndDate3 = RibbonTabs("销售数据管理").Groups("销售资源").Items("截止日期").Value

If Enddate3=Nothing Then
messagebox.show("日期不能为空!","提示")
Else

Dim jb As New SQLJoinTableBuilder("受注","车辆进销")
jb.AddCols("车辆基本信息_车型","车辆基本信息_sfx","车辆基本信息_颜色","车辆基本信息_国别","付款信息_不含税金额","车辆信息_订单编号","车辆基本信息_订单日期","车辆基本信息_请款日期","车辆信息_入库日期","车辆信息_出库日期","销售信息_开piao日期")
jb.Build()

DataTables("库存及受注").DataRows.clear()
Dim f As New Filler
f.SourceTable = DataTables("受注") '指定数据来源
f.SourceCols = "车辆基本信息_车型,车辆基本信息_sfx,车辆基本信息_颜色,车辆基本信息_国别" '指定数据来源列
f.DataTable = DataTables("库存及受注") '指定数据接收表
f.DataCols = "车型,SFX,颜色,国别" '指定数据接收列
f.Fill() '填充数据
DataTables("库存及受注").DataCols("SFX").RaiseDataColChanged
MainTable=Tables("库存及受注")
End If