Foxtable(狐表)用户栏目专家坐堂 → appendload出来的行默认加入位置如何控制?


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

主题:appendload出来的行默认加入位置如何控制?

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


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
appendload出来的行默认加入位置如何控制?  发帖心情 Post By:2016/11/24 15:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

我的代码也很简单

 

Dim t As Table = Tables("CD1ItemInfo")
Dim dt As DataTable=  DataTables("CD1ItemInfo")

Dim LB As WinForm.ListBox = e.Form.Controls("ListBox_Excel")

If LB.Items.Count > 0 Then
    t.Sort =""   
    dt.LoadFilter="_identify is null"   
    dt.Load(False)
   
    For i As Integer = 0  To LB.Items.Count -1
        Dim getLB As String = LB.Items(i)
        Dim LBs() As String  = getLB.Split(":")'listbox里每行是 00000103:MR10256,所以要split
        Dim Filter As String ="CD1ItemID = '" & LBs(0) & "'"
        If DataTables("CD1ItemInfo").find(Filter) Is Nothing Then
            DataTables("CD1ItemInfo").AppendLoad(Filter,False)           
        End If
    Next
End If

 

我要的就是,加载出来的排序跟我listbox里一样,也就是每次加载的行,都默认在最后一行新增

请问怎么实现?


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/24 16:10:00 [只看该作者]

默认是按照_Identify或者_sortkey排序的,可以改_sortkey的值,然后按照_sortkey排序,如


t.Sort ="_SortKey" 
For i As Integer = 0  To LB.Items.Count -1
    Dim getLB As String = LB.Items(i)
    Dim LBs() As String  = getLB.Split(":")'listbox里每行是 00000103:MR10256,所以要split
    Dim Filter As String ="CD1ItemID = '" & LBs(0) & "'"
    Dim dr As DataRow = DataTables("CD1ItemInfo").find(Filter)
    
    If dr Is Nothing Then
        dr = DataTables("CD1ItemInfo").AppendLoad(Filter,False)(0)
    End If
    dr("_SortKey") = i
Next

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


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
回复:(有点蓝)默认是按照_Identify或者_sortkey排序...  发帖心情 Post By:2016/11/24 17:06:00 [只看该作者]

问题解决,厉害~谢谢了


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


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
回复:(有点蓝)默认是按照_Identify或者_sortkey排序...  发帖心情 Post By:2016/12/2 14:35:00 [只看该作者]

dr("_SortKey") = i ,我后来发现有问题,这个是修改不了sortkey字段的。用这个修改,只是Table界面看到的顺序是对的,但是用excel导出,会发现顺序还是错的。最简单就是用messagebox.show(r("_SortKey")),就会发现并没有赋值成功

 

dr.BaseRow("_SortKey") = i 才行,这样导出的Excel才是Table里看到的完全一致

 


 回到顶部