一个List两个Text一个Check  
Private Sub List2_Click()
      FileNum = FreeFile
      
      On Error GoTo exittxt
      
  Open App.Path & "\" & "公顶油压打板记录.txt" For Input As #FileNum
  
  
            Line Input #FileNum, total '读入文件开头的一整行
     
        
      While Not EOF(FileNum)
         Input #FileNum, Strj, numj, strk1, strk2, strk3, strk4, strk5, strk7, strk8, strk9, strk10, strk11, strk12, strk13, strk14, strk15     '读入客户数据
         
           If numj = List2.Text Then
             Text44.Text = strk2:  Text30.Text = strk11:  Text33.Text = strk13: Text29.Text = strk4:   Text31.Text = strk7
             Text28.Text = strk15: Text34.Text = strk4: Text35.Text = strk7: Text36.Text = strk11: Text37.Text = strk13: Text38.Text = strk11: Text42.Text = strk1:
               Exit Sub
            
           End If
         
         
   
      Wend
  
         
  Close #FileNum
  
exittxt:
   
End Sub
Private Sub Text42_Change()

 Check2.Value = 0
Text43.Text = ""
Text9.Text = Text45.Text

 Text9.Text = ""
Command4.Caption = "公顶"
End Sub
Private Sub Text44_Change()

  Check2.Value = 1
End Sub
Private Sub Check2_Click()
Dim a As Long
a = Check2.Value
If a = 1 Then
Text43.Text = "3"
Text43.Enabled = True
Else
Text43.Text = ""
Text43.Enabled = False
End If
End Sub
为什么来回重点List不勾上Check了呢？？？？


[ 本帖最后由 xd12345 于 2013-12-24 14:41 编辑 ]

真的是只要添加这些内容就行了么？

我按照你的要求添加控件后，再贴上代码，运行——无反应啊！

呵。要有个TXT文件

就是说当Text44有字就勾上Check2.Value = 1问题是点 别一上点回来就勾不上了

Private Sub Text44_Change()

  Check2.Value = 1
End Sub

你这代码全部运行过后
Check2.Value = 0

全部运行过后Check2.Value = 0???这样不行吧

当有两个List时第二List点第一次是获得焦点，第二次才是单击，老是要点两下，这问题有解决吗？？？

已解决问题，谢谢各位解答