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


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

主题：[求助]代码修改（已解决）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2011/11/11 20:49:00 [显示全部帖子]

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

 

 


[此贴子已经被作者于2011-11-12 10:07:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2011/11/11 21:37:00 [显示全部帖子]

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

上述代码就是根据编号，从报酬明细表的单位列，获取相同编号，且日期值最大的单位值，填充到当前行，并遍历全部行，估计可能问题出在新增的单位列，但不知如何下手修改，还请老师帮助看看，再次感谢！！
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2011/11/12 7:26:00 [显示全部帖子]

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

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