在线急!@#$%^&*)( 小弟有一个关于把一个自定义记录内字段赋值给若干个TEXT控件。。。。。。。

Question

我自己定义了一个记录类型，我想把文件中若干个记录字段，赋值给若干个文本框，希望各位大侠帮帮忙！！！
小弟在此感激不尽！！！

Answer 1

你说的不详细啊，不过应该不难实现只是还不大懂你的意思          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]

Answer 2

谢谢楼上的各位大侠！
如此关此小弟的问题"我建立了一个空文件，然后通过对话框把要添加的内容添进文件中
我建立了一个LIST的控件
我想在双击LIST控件内的一条文本时显示那个文本对应的记录？"

Answer 3

Private Sub List1_DblClick()
    Dim sSM As String
    Dim FileNumber As Integer
    Dim TextLine As String
    Dim HelpSm As String
    Dim sTmp As Variant
    Dim HelpCy As String, HelpNc As String, HelpZt As String, HelpSy As String
    
    sSM = Trim(List1.List(List1.ListIndex))
    FileNumber = FreeFile
    Open "c:\1.txt" For Input As #FileNumber
    Line Input #FileNumber, TextLine
    If EOF(FileNumber) Then
      MsgBox "Error FileType "
      Exit Sub
    End If
    Do While Not EOF(FileNumber)
      sTmp = Split(TextLine, ",")
      HelpSm = sTmp(0)
      If (HelpSm = sSM) Then
'      Write #1, help_tab.sm, help_tab.cy, help_tab.nc,
'help_tab.zt , help_tab.sy        HelpCy = sTmp(1)
        HelpNc = sTmp(2)
        HelpZt = sTmp(3)
        HelpSy = sTmp(4)
        Exit Do
      End If
      Line Input #FileNumber, TextLine
    Loop
    
    Form2.Text4.Text = HelpSm
    Form2.Text3.Text = HelpCy
    Form2.Text2.Text = HelpNc
    Form2.Text7.Text = HelpZt
    Form2.Text1.Text = HelpSy
    Form2.Show    End Sub          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]