lds(3)
      Else
        FrmShowData.Text4 = ""
      End If
      '打开显示数据窗口
      FrmShowData.Show 1
    End Sub
    
    Private Sub Command2_Click()
      End
    End Sub