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


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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/5 15:40:00 [只看该作者]

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 = "星期" 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("客户信息") = fdr("综合信息")
        i += 1
    Next
    SystemReady = True
End If

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


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/5 15:51:00 [只看该作者]

 加一句 e.DataTable.DeleteFor("日期 is Null")

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


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

这一句加哪里呢？ tiantian 

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


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/5 15:59:00 [只看该作者]

e.DataTable.DeleteFor("日期 is Null")

SystemReady = True
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

但没有执行哦，哪里有错呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/5 16:49:00 [只看该作者]

 Else If (e.DataCol.Name = "星期" OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then

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


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/5 16:57:00 [只看该作者]

改成您的这一句了，当选择老客户时，没有自动填入当前行的内容，也没向下增加行并填入符合条件的内容

以下内容为程序代码:

1 If e.DataCol.Name = "日期" Then
2 If e.NewValue = Nothing Then
3 e.DataRow("星期") = Nothing
4 Else
5 e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
6 End If
7 Else If (e.DataCol.Name = "星期" OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then
8 Dim i As Integer = 0
9 Dim dr As DataRow
10 SystemReady = False
11 For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.NewValue & "'")
12 If i = 0 Then
13 dr = e.DataRow
14 Else
15 dr = e.DataTable.AddNew
16 End If
17 dr("日期") = e.DataRow("日期")
18 dr("星期") = e.DataRow("星期")
19 dr("新老客户") = e.DataRow("新老客户")
20 dr("客户信息") = fdr("综合信息")
21 i += 1
22 Next
23 e.DataTable.DeleteFor("日期 is Null")
24 SystemReady = True
25 End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/5 17:09:00 [只看该作者]

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 = "星期" OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then
    Dim i As Integer = 0
    Dim dr As DataRow
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'")
        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

 回到顶部
总数 48 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询