[求助]代码语法。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码语法。

共有2248人关注过本帖树形打印复制链接主题：[求助]代码语法。

poiokm26

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1431 威望：0 精华：1 注册：2015/12/7 19:14:00

[求助]代码语法。 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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")

唐尸三摆手

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：928 积分：7769 威望：0 精华：13 注册：2008/9/1 11:58:00

Post By：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)

不知道这样你是否理解些？

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/3 21:31:00 [只看该作者]

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

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

下一主题 >> << 上一主题

主题：[求助]代码语法。