专家：求代码解析 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专家：求代码解析

共有2817人关注过本帖树形打印复制链接主题：专家：求代码解析

don

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2014/7/19 13:25:00 [显示全部帖子]

Dim n1 as Integer

Dim r2 As DataRow

Dim drs as List(of DataRow) = DataTables("出库明细表").Select("條件行")

For Each r1 as row In Tables("添加钢瓶_入库明细表").GetCheckedRows '每个被勾选的行

r2 =drs(n1)

n1=n1+1

r2("钢瓶号码") = r1("钢瓶号码")

e.Form.Close

[此贴子已经被作者于2014-7-19 13:25:28编辑过]

主题：专家：求代码解析