| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎么去除这些列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124534) |
| -- 作者：zaq3574020 -- 发布时间：2018/9/8 15:30:00 -- 怎么去除这些列 Dim dcck As WinForm.ComboBox = e.Form.Controls("调出仓库") Dim drck As WinForm.ComboBox = e.Form.Controls("调入仓库") Dim mddc As List(Of DataRow) Dim mddr As List(Of DataRow) Dim kcdr As List(Of DataRow) Dim gbdr As List(Of DataRow) Dim xsdr As List(Of DataRow) Dim zcck As List(Of DataRow) Dim zcrk As List(Of DataRow) Dim zccmx As List(Of DataRow) Dim zcrmx As List(Of DataRow) mddc=DataTables("买断款").Select("仓库=\'"& dcck.Text &"\'") mddr=DataTables("买断款").Select("仓库=\'"& drck.Text &"\'") kcdr=DataTables("库存表").Select("仓库=\'"& drck.Text &"\'") gbdr=DataTables("改标款").Select("仓库=\'"& drck.Text &"\'") xsdr=DataTables("销售明细").Select("仓库=\'"& drck.Text &"\'") zcrmx=DataTables("转仓明细").Select("调入仓库=\'"& drck.Text &"\'") zccmx=DataTables("转仓明细").Select("调出仓库=\'"& drck.Text &"\'") zcck=DataTables("转仓出明细").Select("仓库=\'"& drck.Text &"\'") zcrk=DataTables("转仓入明细").Select("仓库=\'"& drck.Text &"\'") Dim Filter As String If dcck.Text.Length>0 AndAlso drck.Text.Length>0 Then If dcck.Text=drck.Text Then MessageBox.Show("调出仓库和调入仓库不能相同") Else End If Else MessageBox.Show("请先选择调入调出仓库") End If [此贴子已经被作者于2018/9/8 15:52:49编辑过]
|
| -- 作者：zaq3574020 -- 发布时间：2018/9/8 15:32:00 -- 我需要先 tables("库存表").filter="仓库=\'"& drck.text &"\'"先筛选出我选择的调出仓库，然后再根据这个仓库的库存，去除上面那些条件的库存 |
| -- 作者：有点蓝 -- 发布时间：2018/9/8 15:35:00 -- 删除哪些行？又显示什么？显示到哪里？ |
| -- 作者：zaq3574020 -- 发布时间：2018/9/8 15:59:00 -- 以下是引用有点蓝在2018/9/8 15:35:00的发言： 删除哪些行？又显示什么？显示到哪里？ mddc=DataTables("买断款").Select("仓库=\'"& dcck.Text &"\'") mddr=DataTables("买断款").Select("仓库=\'"& drck.Text &"\'") kcdr=DataTables("库存表").Select("仓库=\'"& drck.Text &"\'") gbdr=DataTables("改标款").Select("仓库=\'"& drck.Text &"\'") xsdr=DataTables("销售明细").Select("仓库=\'"& drck.Text &"\'") zcrmx=DataTables("转仓明细").Select("调入仓库=\'"& drck.Text &"\'") zccmx=DataTables("转仓明细").Select("调出仓库=\'"& drck.Text &"\'") zcck=DataTables("转仓出明细").Select("仓库=\'"& drck.Text &"\'") zcrk=DataTables("转仓入明细").Select("仓库=\'"& drck.Text &"\'") tables("库存表")先根据选择的 调出仓库筛选出 该仓库的库存，然后上面这些筛选出来的 都要移除（不显示），不是删除，然后显示在tables中 |
| -- 作者：有点蓝 -- 发布时间：2018/9/8 16:11:00 -- 还是不太明白 移除参考：ttp://www.foxtable.com/webhelp/scr/0408.htm，如:DataTables("买断款").RemoveFor("仓库=\'"& dcck.Text &"\'") 如果要复制数据到其他表，参考：http://www.foxtable.com/webhelp/scr/1533.htm
|
| -- 作者：zaq3574020 -- 发布时间：2018/9/10 9:25:00 -- 以下是引用有点蓝在2018/9/8 16:11:00的发言：
还是不太明白 移除参考：ttp://www.foxtable.com/webhelp/scr/0408.htm，如:DataTables("买断款").RemoveFor("仓库=\'"& dcck.Text &"\'") 如果要复制数据到其他表，参考：http://www.foxtable.com/webhelp/scr/1533.htm 这个移除之后的 datatables的数据 怎么复制给窗口的tables
|
| -- 作者：有点甜 -- 发布时间：2018/9/10 9:28:00 -- 先复制过去，再移除
http://www.foxtable.com/webhelp/scr/1533.htm
http://www.foxtable.com/webhelp/scr/0408.htm
|
| -- 作者：zaq3574020 -- 发布时间：2018/9/10 12:00:00 -- 以下是引用有点甜在2018/9/10 9:28:00的发言：
先复制过去，再移除
http://www.foxtable.com/webhelp/scr/1533.htm
http://www.foxtable.com/webhelp/scr/0408.htm 这么说吧 比如有一张库存表， 我选择一个调入仓库，和一个调出仓库，库存表先根据调出仓库，筛选出这个仓库的所有库存，然后要根据选择的选择的调入仓库，筛选这个调入仓库有的商品（需要根据货号，颜色，尺码来确定）， 比如我先使用datatables .select这个方法那的出来的是DATAROW的集合 这个集合然后怎么使用removerfor这个方法？ |
| -- 作者：有点甜 -- 发布时间：2018/9/10 12:03:00 -- 你可以写代码循环每一行，remove，比如
Dim drs = DataTables("表A").Select("") |