主题：日期框

Dim Book As New XLS.Book(ProjectPath & "备忘录\杂费.xls")

Dim Sheet1 As XLS.Sheet = Book.Sheets("日期")

Dim cj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

If cj.Text =Nothing Then

    messagebox.show("请在导入月终日期输入日期!")

Else

    Sheet1(2,1).Value = cj.value

    Dim Proc As New Process

    Proc.File = (ProjectPath & "备忘录\杂费.xls")

    Proc.Start()

End If

上述代码中    Sheet1(2,1).Value = cj.value，为什么不能将日期框中的值输入到Sheet1(2,1)中？