主题：关联数据导入

一、1、有《供方信息》表，里面有：供应商简称、供应商代码、供应商全称、地址。主表

2、另一《合同编号》表，里面有：供应商简称等其他。

3、需求《合同编号》表通过“供应商简称”与《供方信息》表一致，则导入《供方信息》表里面的“供应商简称”对应的供应商代码、供应商全称、地址。

二、《合同编号》表逻辑值“合同回寄与否”，输入时间。去掉则清空时间。

    If e.DataCol.Name = "合同回寄与否" Then     '记录合同回寄日期
    If e.DataRow("合同回寄与否") = True Then
        e.DataCol("合同回寄日期") = Date.Today
    Else
        e.DataCol("合同回寄日期") = Nothing
    End If
End If    放表属性datacolchanged怎么不对。

此主题相关图片如下：{29a09907-b17b-4da4-89dd-5ebfba484172}.bmp

提示这个，不知道怎么改。

If e.IsFocusCell Then '如果是焦点所在单元格

    if   DataTables("合同编号").GetComboListString("价格表"）-15   <taday<DataTables("合同编号").GetComboListString("价格表"）+15  then

    If e.Col.Name = "A点_合同编号" Then 

               e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = '" & e.Row("A点_供应商简称") & "'")
    End If
   
    If e.Col.Name = "B点_合同编号" Then         e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = '" & e.Row("B点_供应商简称") & "'")
    End If
End If

 

红色这句怎么写，就是判断今天如果在"合同编号"表"价格表"列的左右15天以内，蔡执行下面的语句。

此主题相关图片如下：1.bmp


此主题相关图片如下：2.bmp

第一个是数据源表，第二个是需求表。

要求见5楼。

此主题相关图片如下：3.bmp

没有达到要求的效果。

如上图，如果执行程序，则在需求表，只能看见11、33，不能看见22.因为超出时间。

 

程序在需求表：

Dim d As Date = Date.Today
If   DataTables("合同编号").Find("价格表>=#" & d.AddDays(-15) & "# and 价格表<=#" & d.AddDays(15) & "#") IsNot Nothing Then
    If e.IsFocusCell Then
        If e.Col.Name = "A点_合同编号" Then  e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = '" & e.Row("A点_供应商简称") & "'")
    End If
    If e.Col.Name = "B点_合同编号" Then  e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = '" & e.Row("B点_供应商简称") & "'")
End If