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


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

主题:[求助]代码修改(已解决)

帅哥哟,离线,有人找我吗?
yyzlxc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10639 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]代码修改(已解决)  发帖心情 Post By:2011/11/11 20:21:00 [只看该作者]

一段代码,加到按钮中运行出错,应该如何修改,请各位老师帮助指教,谢谢!!

 

'填充单位
t.DataTable.DataCols.Add("单位", Gettype(String),0)
Dim dr1 As DataRow = e.DataRow
Dim pr As DataRow
If dr1.IsNull("编号")  Then
    dr1("单位") = Nothing
Else
    pr = DataTables("报酬明细").Find("编号 = '" & dr1("编号") & "'", "日期 Desc")
    If pr IsNot Nothing Then
        dr1("单位") = pr("单位")
    Else
        dr1("单位") = Nothing
    End If
End If

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:u.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-11-12 7:26:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/11/11 20:24:00 [只看该作者]

错在这里!

e.DataRow

[此贴子已经被作者于2011-11-11 20:24:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/11/11 20:28:00 [只看该作者]

e.DataRow 改为 tables("**表").Current.DataRow


 


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10639 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2011/11/11 20:49:00 [只看该作者]

谢谢程老师的回复,代码可以保存,没有出错,但是单位列没有填充,请老师帮助看看,问题出在哪里?谢谢!!

 

 


[此贴子已经被作者于2011-11-12 10:07:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/11/11 21:25:00 [只看该作者]

具体问题具体解决,要从一个项目上去理解您的思路和代码,一时半会儿看不明白,确实也没有这个功夫!

 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10639 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2011/11/11 21:37:00 [只看该作者]

不会吧,程老师太谦虚了,以后还会有很多机会求得您的帮助。

上述代码就是根据编号,从报酬明细表的单位列,获取相同编号,且日期值最大的单位值,填充到当前行,并遍历全部行,估计可能问题出在新增的单位列,但不知如何下手修改,还请老师帮助看看,再次感谢!!


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/11/11 23:53:00 [只看该作者]

增加了单位列后:


Dim pr As DataRow
For Each dr1 As DataRow In DataTables("个人年度汇总").DataRows
    If dr1.IsNull("编号")  Then
        dr1("单位") = Nothing
    Else
        pr = DataTables("报酬明细").Find("编号 = '" & dr1("编号") & "'", "日期 Desc")
        If pr IsNot Nothing Then
            dr1("单位") = pr("单位")
        Else
            dr1("单位") = Nothing
        End If
    End If
Next

[此贴子已经被作者于2011-11-12 0:16:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10639 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2011/11/12 7:26:00 [只看该作者]

谢谢e-png老师的回复,问题已得到解决,再次衷心感谢!!

 回到顶部