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

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

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

有点蓝

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

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/11 8:49:00 [显示全部帖子]

Gettype里面需要的是类型，而不是字符串，不能带双引号的。这里无法使用变量或者字符串替代，只能这样处理

if lxs(i) = "String" then

dtb.AddDef(cls(i),Gettype(String),cds(i))

elseif lxs(i) = "Double" then

dtb.AddDef(cls(i),Gettype(Double),cds(i))

elseif ......

有点蓝

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

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/11 12:18:00 [显示全部帖子]

说明没有符合条件的数据，或者符合条件的数据没有加载

For i As Integer = 0 To gps.Length - 1

Dim dt As DataTable = DataTables(gps(i) &"核价")

msgbox(dt.name)

msgbox("款号 = '" & ks.Text & "' and 样衣号 like '%" & yk.Text & "%'") '这个条件拿到数据库里查询

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

msgbox(drs.count)

有点蓝

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

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

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

For i As Integer = 0 To cls.Length - 1

If lxs(i) = "String" Then

dtb.AddDef(cls(i),Gettype(String),cds(i))

ElseIf lxs(i) = "Double" Then

dtb.AddDef(cls(i),Gettype(Double))

ElseIf lxs(i) = "Short" Then

dtb.AddDef(cls(i),Gettype(Short))

End If

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