1
        End If
      End If
    End Sub
    
    Private Sub Cmd_Modi_Click()
      If Adodc1.Recordset.EOF = True Then
        MsgBox "请选择记录"
        Exit Sub
      End If
      p = Adodc1.Recordset.AbsolutePosition
      TrainEdit.OriId = MyTrain.GetId(Trim(Adodc1.Recordset.Fields(0)), _
              Trim(Adodc1.Recordset.Fields(1)), Trim(Adodc1.Recordset.Fields(2)))
      TrainEdit.OriTno = Trim(Adodc1.Recordset.Fields(0))
      TrainEdit.txtTno = Trim(Adodc1.Recordset.Fields(0))
      TrainEdit.OriSstation = Trim(Adodc1.Recordset.Fields(1))
      TrainEdit.txtSstation = Trim(Adodc1.Recordset.Fields(1))
      TrainEdit.OriEstation = Trim(Adodc1.Recordset.Fields(2))
      TrainEdit.txtEstation = Trim(Adodc1.Recordset.Fields(2))
      TrainEdit.txtStime = Trim(Adodc1.Recordset.Fields(3))
      TrainEdit.txtEtime = Trim(Adodc1.Recordset.Fields(4))
      TrainEdit.txtPriceYz = Trim(Adodc1.Recordset.Fields(5))
      TrainEdit.txtPriceRz = Trim(Adodc1.Recordset.Fields(6))
      TrainEdit.txtPriceYw = Trim(Adodc1.Recordset.Fields(7))
      TrainEdit.txtPriceRw = Trim(Adodc1.Recordset.Fields(8))
      TrainEdit.Modify = True
      TrainEdit.Show 1
      
      Refresh_Train
      Adodc1.Recordset.Move p
    End Sub
    
    Private Sub Cmd_Close_C