Dim str1 As String = Filesys.ReadAllText(ProjectPath & "hgz.ini",system.text.encoding.default) Dim str2() AS String = Str1.Split(vblf) Dim str3() As String For i As Integer =1 To str2.length -1 str3 = str2(i).split("=") If str3.length = 2 Then If CurrentTable.Cols.Contains(str3(0)) Then CurrentTable.current(str3(0)) = str3(1) End If End If Next
加好友 
发短信
Post By：2010/9/2 9:35:00 [只看该作者]
