Foxtable(狐表)用户栏目专家坐堂 → 数据添加


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

主题:数据添加

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


加好友 发短信
等级:幼狐 帖子:171 积分:1615 威望:0 精华:0 注册:2013/8/21 9:41:00
数据添加  发帖心情 Post By:2022/9/20 17:26:00 [只看该作者]

                Dim drs As List(of DataRow)=DataTables("销售查询").Select("[客户编码]='" & e.DataRow("客户编码") &"' And [产品编码]='" & e.dataRow("产品编码") &"'")
                If drs.count>0
                    Dim Cols1() As String = {"出货日期","包装规格","出货方式","出货数量","包装单位","出货单价"}
                    Dim Cols2() As String = {"出货日期","包装规格","出货方式","出货数量","包装单位","出货单价"}
                    For Each dr1 As DataRow In drs
                        Dim dr2 As Row = Tables("预售单_table10").AddNew()
                        For i As Integer = 0 To Cols1.Length -1
                            dr2(Cols2(i)) = dr1(Cols1(i))
                        Next
                    Next
                    Tables("预售单_table10").sort="出货日期 DESC"
                End If

只想在Tables("预售单_table10")添加最近5条数据,而不是全部的数据,请问怎么做?谢谢

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111410 积分:567120 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/20 17:39:00 [只看该作者]

Dim drs As List(of DataRow)=DataTables("销售查询").Select("[客户编码]='" & e.DataRow("客户编码") &"' And [产品编码]='" & e.dataRow("产品编码") &"'","出货日期 desc")
                If drs.count>0
                    Dim Cols1() As String = {"出货日期","包装规格","出货方式","出货数量","包装单位","出货单价"}
                    Dim Cols2() As String = {"出货日期","包装规格","出货方式","出货数量","包装单位","出货单价"}
                    For i as integer = 0 to math.min(drs.count - 1,4)
dim dr1 as datarow = drs(i)
                        Dim dr2 As Row = Tables("预售单_table10").AddNew()
                        For i As Integer = 0 To Cols1.Length -1
                            dr2(Cols2(i)) = dr1(Cols1(i))
                        Next
                    Next
                    Tables("预售单_table10").sort="出货日期 DESC"
                End If

 回到顶部