以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符串问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46770)

--  作者:tina2012
--  发布时间:2014/2/27 14:29:00
--  字符串问题
A表的B行的C列的内容是000000111111,想定义一个数组S()等于000000111111,怎么写代码?写的代码一直弹出错误
--  作者:Bin
--  发布时间:2014/2/27 14:34:00
--  
Dim s As Char() = "000000111111".ToCharArray


--  作者:tina2012
--  发布时间:2014/2/27 14:40:00
--  
不想这么直接定义,因为c列有很多行,这样定义可以吗?

Dim s As string = dr("C")

--  作者:Bin
--  发布时间:2014/2/27 14:48:00
--  
无法理解你的意思,你前面又说要数组,现在又变字符串? 你是想怎么样呢?
--  作者:tina2012
--  发布时间:2014/2/27 15:43:00
--  
不好意思,是字符串

Dim s As String = dr("C")  运行之后有错误
图片点击可在新窗口打开查看此主题相关图片如下:00.bmp
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/2/27 15:44:00
--  
你DR没声明是不会自己出现的哦.
dim dr as row = tables("XX").current    \'这样是获得当前行
Dim s As String = dr("C")
搞不定你还是上个例子吧

--  作者:狐狸爸爸
--  发布时间: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
--  发布时间: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
--  发布时间: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)
Next

--  作者:Bin
--  发布时间: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)
Next