下面代码出错，如何调整？谢谢
''======批量界面信息设置保存=====
Dim pth As String = ProjectPath & "Syscm\用户设置\" '设置保存路径
Dim nms() As String = {"Table1","Table2","Table3"}
Dim nns() As String = {"TextBox1","TextBox2","TextBox3"}
Dim str As String = ""
Dim tbstr As String = ""
Dim txtstr As String = ""
For Each nm As String In nms
tbstr &= nm & e.Form.Controls(nm).Table.GetColVisibleWidth() & chr(11)
Next
For Each nn As String In nns
txtstr &= nn & e.Form.Controls(nn).Value & chr(11)
Next
str = tbstr & txtstr
Dim dd As String = pth & e.Form.Name & ".txt"
FileSys.WriteAllText(dd, str.Trim(chr(11)), False, Encoding.Default)
下面代码出错了：
''======批量界面设置数据提取=====
Dim pth As String = ProjectPath & "Syscm\用户设置\" '设置保存路径
Dim dd As String = pth & e.Form.Name & ".txt"
Dim cvs() As String = FileSys.ReadAllText(dd,Encoding.Default).Split(chr(11))
Dim nms() As String = {"Table1","Table2","Table3","TextBox1","TextBox2","TextBox3"}
If cvs.length = nms.length Then
For i As Integer = 0 To nms.length - 1
If nms(i).Contains("Table")
e.Form.Controls(nms(i)).Table.SetColVisibleWidth(cvs(i))
End If
If nms(i).Contains("TextBox")
e.Form.Controls(i).Value = cvs(i)
End If
Next
End If
[此贴子已经被作者于2019/4/29 10:34:10编辑过]
加好友 
发短信
Post By：2019/4/29 10:31:00 [只看该作者]
此主题相关图片如下：qq截图20190429130103.png
