- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 当符合条件时，自动填入数据，并自动向下增加行，填入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64110)
-- 发布时间：2015/2/5 10:31:00
-- 当符合条件时，自动填入数据，并自动向下增加行，填入数据
遇到这样一个问题，如下：
此主题相关图片如下：55555555.png
在填写 派工表时，如显示星期二，就会自动列出 客户数据表 的固定服务时间列 是星期二 的客户综合信息显示在 派工表的 客户信息里面，并向下增加行数，如果有二个是星期二的，就增加二行，并自动填入星期二和客户信息
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:派工表.rar |
附件也一并上传，谢谢大神！
-- 发布时间：2015/2/5 10:40:00
--
参考 http://www.foxtable.com/help/topics/1451.htm
-- 发布时间：2015/2/5 10:41:00
--
1、你用的是盗版foxtable
2、别人帮你写好后，你是打不开的。请去官网下载试用版
-- 发布时间：2015/2/5 10:59:00
--
小甜甜，用会儿就买正版的啊。
-- 发布时间：2015/2/5 11:26:00
--
小甜甜，又不跟我好了啊 |
-- 发布时间：2015/2/5 11:36:00
--
看3楼，去用试用版，你的盗版是打不开我们帮你做好的项目的。
-- 发布时间：2015/2/5 13:45:00
--
下载了试用版，求代码，小tiantian
-- 发布时间：2015/2/5 14:17:00
--
先上传例子。
[此贴子已经被作者于2015-2-5 14:17:31编辑过]
-- 发布时间：2015/2/5 14:54:00
--
tiantian, 例子来了
-- 发布时间：2015/2/5 15:38:00
--
以下内容为程序代码:
1 If e.DataCol.Name = "星期" Then \'如果内容发生变动的是品名列
2 If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
3 e.DataRow("客户信息") = Nothing \'那么清空此行单价列的内容
4 Else
5 Dim dr As DataRow
6 \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
7 dr = DataTables("客户数据").Find("[固定服务时间] = \'" & e.NewValue & "\'")
8 If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
9 e.DataRow("客户信息") = dr("综合信息")
10 End If
11 End If
12 End If
1 If e.DataCol.Name = "星期" Then \'如果内容发生变动的是品名列
2 If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
3 e.DataRow("客户信息") = Nothing \'那么清空此行单价列的内容
4 Else
5 Dim dr As DataRow
6 \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
7 dr = DataTables("客户数据").Find("[固定服务时间] = \'" & e.NewValue & "\'")
8 If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
9 e.DataRow("客户信息") = dr("综合信息")
10 End If
11 End If
12 End If
小甜甜, bin 在吗？