cAlias = Thisform.DataEnvironment.InitialSelectedAlias  && This is generic code in this case it is set to "Sore"
Select (cAlias) 

WITH ThisForm.pageframe1.page2
  *IF EMPTY(.text1.value) AND EMPTY(.edit3.value)&&not work

  *IF EMPTY(.text1.value) AND EMPTY(.edit3.text) )&&not work
 * IF EMPTY(.text1.value) AND EMPTY(alltrim(.edit3.text)))&&not work

  *if ( empty(alltrim(nvl(.text1.value, ''),1,CHR(13),CHR(10),CHR(9))) and ; )&&not work
     empty(alltrim(nvl(.edit3.value, ''),1,CHR(13),CHR(10),CHR(9))) )


IF EMPTY(.text1.value) AND (isnull(.edit3.value) OR EMPTY(.edit3.value)) )&&not work



    .Grid1.visible=.f.
     .edit1.visible=.f.
          .edit2.visible=.f.

  ELSE
    WITH .Grid1 
     .visible=.t.
  
    
      
    replace mark1 WITH 1 FOR sno =(thisform.pageframe1.page2.text1.value)
    replace disc1 WITH thisform.pageframe1.page2.edit1.value FOR sno =(thisform.pageframe1.page2.text1.value)
    replace solveerror WITH thisform.pageframe1.page2.edit2.value FOR sno =(thisform.pageframe1.page2.text1.value)
    replace endat WITH DATE() FOR sno =(thisform.pageframe1.page2.text1.value)
    REPLACE TIME2 WITH TIME() FOR sno =(thisform.pageframe1.page2.text1.value)
    REPLACE emprem WITH  thisform.pageframe1.page2.edit3.value FOR sno =(thisform.pageframe1.page2.text1.value)