Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            SetDataSoure()            Dim de As DataListCommandEventArgs
            myDList1_Edit(sender, de)
        End If
    End Sub