老师下面代码为什么不能提取相关数据？
保存
Dim pth As String = ProjectPath & "Syscm\用户设置\" '设置保存路径
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
Else
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1"}
Dim cvs As String = ""
For Each nm As String In nms
cvs &= e.Form.Controls(nm).value & chr(11)
Next
Dim form As String = e.Form.name
Dim dd As String = pth & form & ".txt"
FileSys.WriteAllText(dd, cvs.trim(chr(11)), False, Encoding.Default)
End If
提取
Dim pth As String = ProjectPath & "Syscm\用户设置\" '设置保存路径
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
Else
Dim form As String = e.Form.Name
Dim dd As String = pth & Form & ".txt"
Dim cvs() As String = FileSys.ReadAllText(dd,Encoding.Default).split(chr(11))
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1"}
If cvs.length = nms.length Then
For i As Integer = 0 To nms.length - 1
e.Form.Controls(nms(i)).value
e.Form.Controls(nms(i)).WriteValue
Next
End If
End If
加好友 
发短信
Post By：2018/7/1 2:11:00 [显示全部帖子]
此主题相关图片如下：qq截图20180704150623.png
