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


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

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/2/6 17:40:00 [只看该作者]

Addnew 改为 tables("表名").InsertNew
Dim dr As DataRow 改为 Dim dr As Row

不要删除行就把红色代码去掉
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dr = e.DataTable.AddNew

 

改成

 

dr = Tables(e.DataTable.Name).InsertNew
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

出错了哦，

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


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

Dim dr As Row

 

 

-------------

 

 

dr = Tables(e.DataTable.Name).InsertNew
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用有点甜在2015-2-6 17:43:00的发言：

dr = e.DataTable.AddNew

 

改成

 

dr = Tables(e.DataTable.Name).InsertNew

这样的错误出现了


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


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

以下是引用有点甜在2015-2-6 17:49:00的发言：

Dim dr As Row

 

 

-------------

 

 

dr = Tables(e.DataTable.Name).InsertNew

现在是这个错误


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


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/6 18:00: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 Row
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'")
        If i = 0 Then
            dr = e.DataRow
        Else
        dr = Tables(e.DataTable.Name).InsertNew
        End If
        dr("日期") = e.DataRow("日期")
        dr("星期") = e.DataRow("星期")
        dr("新老客户") = e.DataRow("新老客户")
        dr("客户信息") = fdr("综合信息")
        dr("客户要求") = fdr("客户要求")
        i += 1
    Next
    e.DataTable.DeleteFor("日期 is Null")
    SystemReady = True
End If

出现上面的提示错误
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/6 18:07: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 object
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'")
        If i = 0 Then
            dr = e.DataRow
        Else
            dr = Tables(e.DataTable.Name).InsertNew
        End If
        dr("日期") = e.DataRow("日期")
        dr("星期") = e.DataRow("星期")
        dr("新老客户") = e.DataRow("新老客户")
        dr("客户信息") = fdr("综合信息")
        dr("客户要求") = fdr("客户要求")
        i += 1
    Next
    e.DataTable.DeleteFor("日期 is Null")
    SystemReady = True
End If

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


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

搞定。。。。。。谢谢 tiANTIAN

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


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

TIANTIAN 老师，代码现在是这样：

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
CurrentTable.AddNew(5)
End If

在调用另外一张表时，有一个时间，这个时间有上午和下午不同的时间，在调用时，能不能按照先后顺序调用呢？现在调用出来，时间上有点儿乱，下午跑上午上面去了。


图片点击可在新窗口打开查看此主题相关图片如下：370.png
图片点击可在新窗口打开查看
 回到顶部
总数 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.05078 秒, 4 次数据查询