按条件批量添加多行所对应的图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按条件批量添加多行所对应的图片

共有2623人关注过本帖树形打印复制链接主题：按条件批量添加多行所对应的图片

weibu

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

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/18 17:32:00 [只看该作者]

老师这个代码为什么没有fr("isagent")的值赋给 sym("isagent") ，哪个地方有问题？

If e.Form.Controls("TextBox1").Value IsNot Nothing Then

Dim fr As Row = Tables("rs_sourcecode").Current

If fr IsNot Nothing Then

Dim syms As List(of DataRow) = DataTables("rs_sourcecode").SQLSelect("nowdepart = '" & fr("nowdepart") & "' And inno = '" & fr("inno") & "'")

For Each sym As DataRow In syms

sym("isagent") = fr("isagent")

DataTables("rs_sourcecode").SQLUpdate(syms) '更新数据库溯源码表中的是否可用状态

DataTables("rs_outsideout").Save()

MessageBox.Show(fr("qdocuments"))

MessageBox.Show("绑定成功!", "提示")

'e.Form.Close

End If

[此贴子已经被作者于2020/6/18 17:36:35编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/18 17:37:00 [只看该作者]

pr是什么东西？
Dim syms As List(of DataRow) = DataTables("rs_sourcecode").SQLSelect("nowdepart = '" & fr("nowdepart") & "' And inno = '" & fr("inno") & "' And prodate = '" & fr("prodate") & "'")

msgbox(syms.count) ‘有没有符合条件的数据？

weibu

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

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/18 18:04:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

msgbox(syms.count) ‘有没有符合条件的数据？

有符合数据，显示数量为2；

这个代码有问题，也是不能更新，附件项目资料，有个窗口，窗口中按钮的click代码

If e.Form.Controls("TextBox1").Value IsNot Nothing Then

Dim fr As Row = Tables("采购订单").Current

Dim Filter As String = "[订单编号] = '" & fr("订单编号") & "'"

DataTables("采购订单").ReplaceFor("相关资料", fr("相关资料"), Filter)

End If

[此贴子已经被作者于2020/6/18 18:05:47编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/18 20:15:00 [只看该作者]

没看懂这个代码要干嘛。不用管代码，请使用文字说明具体要做什么？

fr就是当前行，编号是唯一的，所以Filter 这个查询条件对应的就是当前行。上面代码只是把当前行的数据又赋值回当前行里，相当于什么都没做

weibu

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

加好友

发短信

等级：三尾狐帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/18 20:27:00 [只看该作者]

我想做的是在“采购订单”表中筛选和当前行的“订单编号”相同的行，并把当前行列“相关资料”的值赋值给符合条件的其他行

老师我的“订单编号”值不是唯一值。很多行的“订单编号”是相同的。

[此贴子已经被作者于2020/6/18 20:28:33编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/18 20:56:00 [只看该作者]

嗯，看错了，看做是同一个编号列了。这样我测试没有问题哦。这个貌似和TextBox1没有什么关系了，选中相关资料有值的行，直接这样即可

Dim fr As Row = Tables("采购订单").Current

Dim Filter As String = "[订单编号] = '" & fr("订单编号") & "'"

DataTables("采购订单").ReplaceFor("相关资料", fr("相关资料"), Filter)

下一主题 >> << 上一主题

总数 16 上一页 1 2

主题：按条件批量添加多行所对应的图片