Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码求助


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

主题：[求助]代码求助
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		[求助]代码求助  发帖心情 Post By：2015/6/19 14:57:00 [只看该作者]

For Each dc1 As DataCol In e.DataTable.DataCols
        str = str  & dc1.Name & "|"
        For Each dr1 As DataRow In e.DataTable.DataRows
            str = str  & dr1(dc1) & "|"
        Next
    Next

做个了删除行时记录下此行所有内容的功能，上面的代码执行后得到的结果我想完善一下，目前的结果是：
合同主号|a|合同分号|s|签订日期|2015-2-1|供应商|d|代码|f|原产牌号||厚度||宽度||
我希望的结果是：
合同主号|a|合同分号|s|签订日期|2015-2-1|供应商|d|代码|f|原产牌号|空|厚度|空|宽度|空|
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/19 15:02:00 [只看该作者]

For Each dc1 As DataCol In e.DataTable.DataCols
    str = str  & dc1.Name & "|"
    For Each dr1 As DataRow In e.DataTable.DataRows
        str = str  & iif(dr1.IsNull(dc1), "空", dr1(dc1)) & "|"
    Next
Next

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


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2015/6/19 15:19:00 [只看该作者]

我的整段代码中有BUG，老师帮我看看：
DataRowDeleting 事件

If e.DataRow("首审记录") <> Nothing Then
    Dim dr As DataRow = _dt操作日志_修改.AddNew
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    dr("日期") = format(dt,"yyyy-MM-dd")
    dr("时间") = format(dt,"HH:mm:ss")
    dr("表名") = e.DataTable.Name
    dr("行号流水") = e.DataRow("_Identify")
    dr("列名") = "整行删除"
    'dr("原值") = e.OldValue
    'dr("新值") = e.NewValue
    dr("操作者") = _Username
    Dim str As String
    
    For Each dc1 As DataCol In e.DataTable.DataCols
        str = str  & dc1.Name & "|"
        For Each dr1 As DataRow In e.DataTable.DataRows
            str = str  & iif(dr1.IsNull(dc1), "空", dr1(dc1)) & "|"
        Next
    Next
    
    dr("备注") = str
    dr.Save
End If

我如果用选中二行再一起删除的话，以上代码执行后，得到以下结果：
在等号为129的备注中显示如下：
合同主号|空|空|合同分号|空|空|签订日期|空|空|供应商|空|空|代码|空|空|原产牌号|空|空|厚度|空|空|宽度|空|空|重量|空|空|单价|空|空|金额|空|空|付款方式|空|空|交货日期|空|空|提货方式|空|空|核心条款|空|空|扫描件|空|空|执行状态|空|空|审核|False|False|录入人|空|空|录入日期|空|空|编辑者|空|空|首审记录|admin 2015-06-19 15:12:26|admin 2015-06-19 15:12:27|末审记录|admin 2015-06-19 15:12:26|admin 2015-06-19 15:12:27|行号流水|128|129|
在行号128的备注中显示如下：
合同主号|空|合同分号|空|签订日期|空|供应商|空|代码|空|原产牌号|空|厚度|空|宽度|空|重量|空|单价|空|金额|空|付款方式|空|交货日期|空|提货方式|空|核心条款|空|扫描件|空|执行状态|空|审核|False|录入人|空|录入日期|空|编辑者|空|首审记录|admin 2015-06-19 15:12:26|末审记录|admin 2015-06-19 15:12:26|行号流水|128|

也就是说，我如果同时删除N行，在此批行中的最后一行会出现重复N次的数据，在N-1行也就出现N-1次的重复数据
 回到顶部
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2015/6/19 15:28:00 [只看该作者]

搞定了，哈哈！
If e.DataRow("首审记录") <> Nothing Then
    Dim dr As DataRow = _dt操作日志_修改.AddNew
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    dr("日期") = format(dt,"yyyy-MM-dd")
    dr("时间") = format(dt,"HH:mm:ss")
    dr("表名") = e.DataTable.Name
    dr("行号流水") = e.DataRow("_Identify")
    dr("列名") = "整行删除"
    'dr("原值") = e.OldValue
    'dr("新值") = e.NewValue
    dr("操作者") = _Username
    Dim str As String
    
    For Each dc1 As DataCol In e.DataTable.DataCols
        str = str  & dc1.Name & "|"
        'For Each dr1 As DataRow In e.DataTable.DataRows
            str = str  & iif(e.DataRow.IsNull(dc1), "空", e.DataRow(dc1)) & "|"
        'Next
    Next
    
    dr("备注") = str
    str = Nothing
    dr.Save
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询