请问如何解决"当随机文件中的字段包含有汉字,则此字段之后的字段内容无法显示在列表框中"这一问题?[br]请看下面的程序段落
----------------------------------------------
'定义用户自定义类型
Private Type SubstationDataGather_Type
Substation_Name As String * 20
Substation_Alias As String * 20
HighTensionCable_SegmentNumber As Integer
SumRb As Double
SumXb As Double
End Type
Dim SubstationDataGather_DataArray() As SubstationDataGather_Type
'在窗体初始化过程中把随机文件中的每一记录的各字段连接成一字符串,显示在列表框中
For RecordNumber = 1 To Lastrec
Get #1, RecordNumber, SubstationDataGather_DataArray(RecordNumber)
With SubstationDataGather_DataArray(RecordNumber)
谢谢mccad 老师的关注。文本文件中的行文字是通过以下程序转换到自定义数据类型SubstationDataGather_Type中的,恳请mccad 老师指正。
Dim Lastrec As Integer
Dim RecordNumber As Integer
Dim SubstationDataGatherList As String
On Error Resume Next
ReDim Preserve SubstationDataGather_DataArray(0)
'以随机访问方式打开文件
Open "f:\MyAutoCAD\MyVBA\SubstationDataGather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray(0))