- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关联数据导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85054)
-- 发布时间：2016/5/16 17:56:00
-- 关联数据导入
一、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怎么不对。
-- 发布时间：2016/5/16 19:54:00
--
1、看看
http://www.foxtable.com/help/topics/1451.htm
2、代码没有问题的，做个例子测试。
-- 发布时间：2016/5/17 11:35:00
--
此主题相关图片如下：{29a09907-b17b-4da4-89dd-5ebfba484172}.bmp
提示这个，不知道怎么改。
-- 发布时间：2016/5/17 11:37:00
--
If e.DataCol.Name = "合同回寄与否" Then \'记录合同回寄日期
If e.DataRow("合同回寄与否") = True Then
e.DataRow("合同回寄日期") = Date.Today
Else
e.DataRow("合同回寄日期") = Nothing
End If
end if
-- 发布时间：2016/6/6 10:32:00
--
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天以内，蔡执行下面的语句。
-- 发布时间：2016/6/6 10:36:00
--
1、数据截图发上来，说明具体逻辑
2、或者直接上传实例。
-- 发布时间：2016/6/6 10:45:00
--
此主题相关图片如下：1.bmp
此主题相关图片如下：2.bmp
第一个是数据源表，第二个是需求表。
要求见5楼。
-- 发布时间：2016/6/6 10:50:00
--
Dim d As Date = Date.Today
If DataTables("合同编号").Find("价格表>=#" & d.AddDays(-15) & "# and 价格表<=#" & d.AddDays(15) & "#") IsNot Nothing Then
End If
-- 发布时间：2016/6/6 10:59:00
--
此主题相关图片如下：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
-- 发布时间：2016/6/6 11:04:00
--
If e.IsFocusCell Then
Dim d As Date = Date.Today
If e.Col.Name = "A点_合同编号" Then e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = \'" & e.Row("A点_供应商简称") & "\' and 价格表>=#" & d.AddDays(-15) & "# and 价格表<=#" & d.AddDays(15) & "#")
If e.Col.Name = "B点_合同编号" Then e.Col.Combolist = DataTables("合同编号").GetComboListString("合同编号_开发年度", "[供应商简称] = \'" & e.Row("B点_供应商简称") & "\' and 价格表>=#" & d.AddDays(-15) & "# and 价格表<=#" & d.AddDays(15) & "#")
End If