以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码语法。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79500)
--  作者：poiokm26
--  发布时间：2016/1/3 17:04:00
--  [求助]代码语法。
                                                   //学到编程代码部份。被卡着了。十几天没半点进展。

Dim 集合名称 As New List(Of 数据类型）

例如：

Dim Names As New List(Of String)               //这是帮助文件里集合的介绍。


                                                            
                                                           //接着看到Select这一章

示例一

例如，对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.12，代码为：

Dim drs As List(Of DataRow)                                              //问题在这里。之前看视频的时候，曾经几次提醒过要加上New.

drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#")
For Each dr As Datarow In drs
    dr("折扣") = 0.12
Next
--  作者：lsy
--  发布时间：2016/1/3 17:20:00
--  
定义之后，直接等于，就不用New
Dim lst As List(Of String) = DataTables("表A").GetValues("第一列","第一列 Is Not Null")

定义之后，换行，再变量等于，就用New
Dim lst As New List(Of String) 
lst = DataTables("表A").GetValues("第一列","第一列 Is Not Null")
--  作者：唐尸三摆手
--  发布时间：2016/1/3 17:22:00
--  
drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#")‘这种写法不用new的。
如果你这样写,就是重新实例化一个集合了
Dim drs As New List(Of DataRow)
for each dr as datarow  in dt.datarows
drs.add(dr)
next

不知道这样你是否理解些？
--  作者：大红袍
--  发布时间：2016/1/3 21:31:00
--  

1、new以后，就是新的，可以直接用；

 

2、不new，就需要从别的地方已经生成的给他赋值，才能用