Foxtable(狐表) → 用户栏目 → 专家坐堂 → 当符合条件时，自动填入数据，并自动向下增加行，填入数据


  共有7061人关注过本帖树形打印复制链接

主题：当符合条件时，自动填入数据，并自动向下增加行，填入数据
帅哥哟，离线，有人找我吗？
cyrollin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		当符合条件时，自动填入数据，并自动向下增加行，填入数据  发帖心情 Post By：2015/2/5 10:31:00 [显示全部帖子]

遇到这样一个问题，如下：

图片点击可在新窗口打开查看此主题相关图片如下：55555555.png
图片点击可在新窗口打开查看

在填写 派工表时，如显示星期二，就会自动列出 客户数据表 的固定服务时间列 是星期二 的客户综合信息显示在 派工表的 客户信息里面，并向下增加行数，如果有二个是星期二的，就增加二行，并自动填入星期二和客户信息

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:派工表.rar

附件也一并上传，谢谢大神！
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 10:59:00 [显示全部帖子]

小甜甜，用会儿就买正版的啊。

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 11:26:00 [显示全部帖子]

小甜甜，又不跟我好了啊 
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 13:45:00 [显示全部帖子]

下载了试用版，求代码，小tiantian

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 14:54:00 [显示全部帖子]

tiantian, 例子来了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:派工表-2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：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


使用了试例代码，可以调出当前行的内容，但追加相同记录到下面的行，怎么写代码呢？ 
小甜甜, bin 在吗？
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 15:47:00 [显示全部帖子]

谢谢，好感动哦。 不过自动加的数据，在下面好多行以后了，他不是紧接着下面行挨着加的。请看图：

图片点击可在新窗口打开查看此主题相关图片如下：1010.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 15:54:00 [显示全部帖子]

这一句加哪里呢？ tiantian 

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 15:59:00 [显示全部帖子]

我加在这里的：dr = e.DataTable.AddNew　上面一句，对吧

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 16:33:00 [显示全部帖子]

非常感谢。　现在实际用的时候，又出来了一个问题。　我在表中间插入了一行，输入星期后，就把 客户资料 里面相同星期的数据又追加了一次。 所以现在不得不多做一个判断，如果选老客户，才能自动填写数据，选新客户就不能自动填入数据。如下图：

图片点击可在新窗口打开查看此主题相关图片如下：5777.png
图片点击可在新窗口打开查看

我把代码改成这样了：

If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
    End If
Else If e.DataCol.Name = "星期" And e.DataRow("新老客户")="老客户" Then
    Dim i As Integer = 0
    Dim dr As DataRow
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.NewValue & "'")
        If i = 0 Then
            dr = e.DataRow
        Else
            dr = e.DataTable.AddNew
        End If
        dr("日期") = e.DataRow("日期")
        dr("星期") = e.DataRow("星期")
        dr("新老客户") = e.DataRow("新老客户") 
        dr("客户信息") = fdr("综合信息")
        i += 1
    Next
    e.DataTable.DeleteFor("日期 is Null")
    SystemReady = True
End If

但没有执行哦，哪里有错呢？
 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询