- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么在系统启动的时候将所有的角色写到角色表内 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113307)
-- 发布时间：2018/1/12 22:34:00
-- [求助]怎么在系统启动的时候将所有的角色写到角色表内
怎么在系统启动的时候将所有的角色写到角色表内
DataTables("角色").DeleteFor("")
Dim dr As DataRow = DataTables("Users").find("Name = \'Roles\'")
If dr IsNot Nothing Then
Dim Values() As String
Values = dr("Config").split(vbcrlf)
For Index As Integer = 0 To Values.Length - 1
dr = DataTables("角色").AddNew()
MessageBox.Show(Values(Index))
dr("角色") = Values(Index)
MessageBox.Show(dr("角色"))
Next
End If
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题2.png
从第二个角色开始，觉得角色前边有点什么东西，整个角色字段在单元格内靠下
此主题相关图片如下：无标题3.png
这是什么原因，应该怎么改程序，
谢谢老师
-- 发布时间：2018/1/12 22:41:00
--
Values = dr("Config").Replace(vbcr,"").split(vblf)
-- 发布时间：2018/1/12 23:09:00
--
谢谢蓝老师