字符串问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串问题

共有3330人关注过本帖树形打印复制链接主题：字符串问题

tina2012

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

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

字符串问题

Post By：2014/2/27 14:29:00 [只看该作者]

A表的B行的C列的内容是000000111111，想定义一个数组S（）等于000000111111，怎么写代码？写的代码一直弹出错误

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/27 14:34:00 [只看该作者]

Dim s As Char() = "000000111111".ToCharArray

tina2012

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

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

Post By：2014/2/27 14:40:00 [只看该作者]

不想这么直接定义，因为c列有很多行，这样定义可以吗？

Dim s As string = dr("C")

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/27 14:48:00 [只看该作者]

无法理解你的意思,你前面又说要数组,现在又变字符串? 你是想怎么样呢?

tina2012

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

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

Post By：2014/2/27 15:43:00 [只看该作者]

不好意思，是字符串

Dim s As String = dr("C") 运行之后有错误
图片点击可在新窗口打开查看

此主题相关图片如下：00.bmp

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/27 15:44:00 [只看该作者]

你DR没声明是不会自己出现的哦.

dim dr as row = tables("XX").current '这样是获得当前行

Dim s As String = dr("C")

搞不定你还是上个例子吧

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/2/27 15:45:00 [只看该作者]

Dim s() As Char

if dr.isnull("C") = false then

s = dr("C").ToCharArray

end if

[此贴子已经被作者于2014-2-27 15:47:04编辑过]

lsy

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

加好友

发短信

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

Post By：2014/2/27 15:59:00 [只看该作者]

以下是引用狐狸爸爸在2014-2-27 15:45:00的发言：

Dim s() As Char

if dr.isnull("C") = false then

s = dr("C").ToCharArray

end if

[此贴子已经被作者于2014-2-27 15:47:04编辑过]

帮助里没见着，顶上去大家取经。

tina2012

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

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

Post By：2014/2/27 16:06:00 [只看该作者]

找出Team_Users表中找出Name列的内容是_UserName的这一行，再把这一行的PermissionValue列的内容（例如11110000）分别写到System_Permission表的Permission列中。以下代码弹出错误，请帮忙。谢谢

Dim dr As DataRow

dr = DataTables("Team_Users").Find("Name = '& _UserName &'")

Dim s As String = dr("PermissionValue").ToCharArray

For i As Integer=0 To s.length-1

Tables("System_Permission").rows(i)("Permission") = s(i)

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/27 16:07:00 [只看该作者]

Dim dr As DataRow

dr = DataTables("Team_Users").Find("Name = '& _UserName &'")

Dim s As String = dr("PermissionValue")

For i As Integer=0 To s.length-1

Tables("System_Permission").rows(i)("Permission") = s(i)

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

总数 14 1 2 下一页

主题：字符串问题