帮我看看哪里错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮我看看哪里错了？

共有3173人关注过本帖树形打印复制链接主题：帮我看看哪里错了？

程兴刚

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

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2020/3/14 1:55:00 [显示全部帖子]

Dim drs = dt.Select("款号 = '" & kss & "'and 样衣号 like '%" & yks & "%'","_sortkey")

这一句没有指明定义drs变量的类型！应为 Dim drs As Iist(Of datarow) = ……

[此贴子已经被作者于2020/3/14 1:55:45编辑过]

程兴刚

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

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2020/3/14 2:04:00 [显示全部帖子]

For Each dc As DataCol In dt.DataCols

If dc.Name = "规格" Then

r("规格") = dr("规格")

Else

r("规格") = Nothing

End If

您这个循环不但脱了裤子放屁，还会导致系统逻辑错误，如果遍历的最后一列不是规格列，会导致规格列永远为空！只需这一句即可：

r("规格") = dr("规格")

[此贴子已经被作者于2020/3/14 2:04:39编辑过]

程兴刚

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

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2020/3/14 7:13:00 [显示全部帖子]

按理，作为开发者，您在设计时应该很清楚地知道又没有“规格”这一列，您应该不会让用户手动删除吧？如果确实需要判断，这样即可：

if dt.dataCols.Contains("规格") = true

r("规格") = dr("规格")

end if

主题：帮我看看哪里错了？