Foxtable(狐表)用户栏目专家坐堂 → [求助] 引用 Split 分割字符串得到的数组,出现编译错误,为什么呢?


  共有2037人关注过本帖树形打印复制链接

主题:[求助] 引用 Split 分割字符串得到的数组,出现编译错误,为什么呢?

美女呀,离线,留言给我吧!
龙潭春早
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:676 积分:4895 威望:0 精华:0 注册:2018/3/22 16:05:00
[求助] 引用 Split 分割字符串得到的数组,出现编译错误,为什么呢?  发帖心情 Post By:2020/1/6 20:07:00 [只看该作者]

任务:双击表B单元格,向表A 的多个列输入数据

代码:

Dim Pn2(),Pn3(),str2s,str3s As String
str2s = "A1,A2,A3,A4,A5,A6" ' 表A 列名字符串
str3s = "B1,B2,B3,B4,B5,B6" ' 表B 列名字符串
Dim dr As DataRow = DataTables("表A").Find("[编码] = '"&e.Row("编码")&"'")
If dr IsNot Nothing Then
    Pn2() = str2s.Split(",") ' 表A 列名数组
    Pn3() = str3s.Split(",") ' 表B 列名数组    
    For i As Integer = 0 To Pn2().Length - 1
        dr(Pn2(i)) = e.Row(Pn3(i))
    Next    
End If

保存代码时,出现编译错误,为什么呢? 怎么解决呢?

图片点击可在新窗口打开查看此主题相关图片如下:双击输入时代码编译错误.png
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 20:14:00 [只看该作者]


    Pn2 = str2s.Split(",") ' 表A 列名数组
    Pn3 = str3s.Split(",") ' 表B 列名数组    
    For i As Integer = 0 To Pn2.Length - 1

 回到顶部
美女呀,离线,留言给我吧!
龙潭春早
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:676 积分:4895 威望:0 精华:0 注册:2018/3/22 16:05:00
  发帖心情 Post By:2020/1/6 21:30:00 [只看该作者]

蓝老师,帮助中的下面这个示例里,定义了 Parts() 并用它直接引用了字符串分割数组,
我们这里为什么不能用 Pn2() 直接引用数组,而必须用 Pn2 引用呢?

帮助中的示例代码:

Dim Tel As String = "0759 - 3166876"
Dim Parts() As String = Tel.Split("-")
Output.Show("区号:" & Parts(0))
Output.Show("电话:" & Parts(1))
在命令窗口执行上述代码,得到的结果是:
区号:0759
电话:3166876

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 21:59:00 [只看该作者]

固定语法,定义的时候才需要,赋值的时候不需要

 回到顶部
美女呀,离线,留言给我吧!
龙潭春早
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:676 积分:4895 威望:0 精华:0 注册:2018/3/22 16:05:00
  发帖心情 Post By:2020/1/6 22:46:00 [只看该作者]

哦 多谢!

 回到顶部