Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量修改列


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

主题：[求助]批量修改列
帅哥哟，离线，有人找我吗？
czy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/26 21:00:00 [显示全部帖子]

Dim s As String = e.Form.Controls("TextBox1").Value
If s = "" Then
    Return
End If
Dim drs As List(Of DataRow) = DataTables("生产").Select("[熔铸编号] = '" & s & "'")
For Each dr As DataRow In drs
    dr("当前规格") = e.Form.Controls("ComboBox1").Value
    dr("当前库位") = e.Form.Controls("ComboBox2").Value
    dr("当前流程") = e.Form.Controls("ComboBox3").Value
Next

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/26 21:33:00 [显示全部帖子]

2楼的代码是以熔铸编号来确定修改的，只要指定表中有这个编号，肯定起作用

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/26 21:43:00 [显示全部帖子]

是窗口TextBox1控件的值，你输入什么就到熔铸编号中找，找到有这个编号的再进行修改。

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/26 22:22:00 [显示全部帖子]

Dim r As Row = Tables("生产").AddNew
r("列名称") = 控件值

……

 

你是想这样？
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/8/26 22:57:00 [显示全部帖子]

仔细看了一下一楼的问题，1、2好像应该是这样

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目21.table

 

批量修改楼上的方法是可行的。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询