Foxtable(狐表)用户栏目专家坐堂 → 怎么去除这些列


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

主题:怎么去除这些列

帅哥哟,离线,有人找我吗?
zaq3574020
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
怎么去除这些列  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/8 15:32:00 [显示全部帖子]

我需要先 tables("库存表").filter="仓库='"& drck.text &"'"先筛选出我选择的调出仓库,然后再根据这个仓库的库存,去除上面那些条件的库存

 回到顶部
帅哥哟,离线,有人找我吗?
zaq3574020
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By: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中


 回到顶部
帅哥哟,离线,有人找我吗?
zaq3574020
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
zaq3574020
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By: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这个方法?


 回到顶部