欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ 这段代码要怎么改?
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
1895
人关注过本帖
平板
打印
复制链接
主题:这段代码要怎么改?
hitzfeld
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:二尾狐
帖子:
515
积分:5051
威望:0
精华:0
注册:
2017/9/1 23:28:00
这段代码要怎么改?
Post By:2020/11/14 18:50:00 [
只看该作者
]
DataColChange事件
目的是,当当前行发生变动的时候,检索“库存表”中是否存在对应单号,如果没有,就新增一行,并写入当前行的单号,产品名称,数量
Select Case e.DataCol.Name
Case "审核" ,"产品名称","入库数量","采购单号"
Dim dr As DataRow = DataTables("库存表").find("采购单号='" & e.DataRow("采购单号") & "'")
If dr Is Nothing Then
DataTables("库存表").addnew()
dr("采购单号") = e.DataRow("采购单号")
dr("产品名称") = e.DataRow("产品名称")
dr("采购数量") = e.DataRow("采购数量")
End If
End Select
但是一直报错,请老师指点下。谢谢!
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.02490 秒, 5 次数据查询