| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- SQLSelect (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135540) |
| -- 作者：lfz123 -- 发布时间：2019/5/29 11:09:00 -- SQLSelect 老师,由Select改成SQLSelect,我的这段代码怎么失效了, If e.DataCol.name = "申请单号" Then Dim drs As List (of DataRow) = DataTables("入库单").SQLSelect("申请单号 = \'"& e.newvalue & "\'") For Each dr As DataRow In drs Dim strs As List (of String) = e.DataTable.SQLGetValues("付款单号","申请单号 = \'"& e.newvalue & "\'") dr.Lines("付款单号") = strs Next End If
|
| -- 作者：有点甜 -- 发布时间：2019/5/29 11:15:00 -- sqlselect是在后台修改数据。
1、必须保存dr；
2、必须重新load表格刷新数据。 |
| -- 作者：lfz123 -- 发布时间：2019/5/29 11:29:00 -- 回复：（有点甜）sqlselect是在后台修改数据。 ... 不知道咋地做呢,学生愚钝啊,甜老师 |
| -- 作者：有点甜 -- 发布时间：2019/5/29 11:48:00 -- If e.DataCol.name = "申请单号" Then
Dim drs As List (of DataRow) = DataTables("入库单").SQLSelect("申请单号 = \'"& e.newvalue & "\'")
For Each dr As DataRow In drs
Dim strs As List (of String) = e.DataTable.SQLGetValues("付款单号","申请单号 = \'"& e.newvalue & "\'")
dr.Lines("付款单号") = strs
dr.save
Next
DataTables("入库单").Load
End If
[此贴子已经被作者于2019/5/29 11:48:13编辑过]
|