- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何根据本行数据条件，读取和写入另一列数据？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114318)
-- 发布时间：2018/2/3 0:07:00
-- [求助]如何根据本行数据条件，读取和写入另一列数据？
如果“第二列”数据相同，那么如何将“第一列”数据一律改为排序后的第一个数据？
如图：即a数据对应均写入2018201。b数据对应均写入2018203，c数据对应均写2018206。
此主题相关图片如下：image 1.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：2018/2/3 8:48:00
--
这个意思？
Dim dt As DataTable = DataTables("表A")
For Each v As String In dt.GetValues("第二列","第二列 is not null")
Dim dr As DataRow = dt.Find("第二列=\'" & v & "\'","第一列")
dt.ReplaceFor("第一列",dr("第一列"),"第二列=\'" & v & "\'")
Next