girish_327
Posts: 108
|
| Posted: 05/21/2006, 1:02 AM |
|
Hello,
I got a Code for Display different default value for Each Row in Editable Grid But there is One Problem if Dabase is Empty then Its shows right values in the Editable Grid as soon as I enter the values in the database its shows nothing. PLease help me I want solve this Problem Immidiately.
THANKS
Dim RowCounter
RowCounter = 1
Function Admin_Data_BeforeShowRow(Sender) 'Admin_Data_BeforeShowRow @4-DF003716
'Custom Code @25-73254650
' -------------------------
' Write your own code here.
if Admin_Data.EditMode Then
else
Select Case RowCounter
Case "1"
Admin_Data.Heading_id.value = 1.01
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 1.01 , DBLions)
Case "2"
Admin_Data.Heading_id.value = 2.01
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 2.01 , DBLions)
Case "3"
Admin_Data.Heading_id.value = 2.02
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 2.02 , DBLions)
Case "4"
Admin_Data.Heading_id.value = 3
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 3 , DBLions)
Case "5"
Admin_Data.Heading_id.value = 4
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 4 , DBLions)
Case "6"
Admin_Data.Heading_id.value = 5
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 5 , DBLions)
Case "7"
Admin_Data.Heading_id.value = 6
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 6 , DBLions)
Case "8"
Admin_Data.Heading_id.value = 7
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 7 , DBLions)
Case "9"
Admin_Data.Heading_id.value = 8.01
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 8.01 , DBLions)
Case "10"
Admin_Data.Heading_id.value = 8.02
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 8.02 , DBLions)
Case "11"
Admin_Data.Heading_id.value = 9
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 9 , DBLions)
Case "12"
Admin_Data.Heading_id.value = 10
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 10 , DBLions)
Case "13"
Admin_Data.Heading_id.value = 11
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 11 , DBLions)
Case "14"
Admin_Data.Heading_id.value = 12
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 12 , DBLions)
Case "15"
Admin_Data.Heading_id.value = 13
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 13 , DBLions)
Case "16"
Admin_Data.Heading_id.value = 14
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 14 , DBLions)
Case "17"
Admin_Data.Heading_id.value = 15
Admin_Data.t_head.Value = CCDLookup("Heading","Admin_Heading","Head_ID=" & 15 , DBLions)
End Select
RowCounter = RowCounter + 1
end if
' -------------------------
'End Custom Code
End Function 'Close Admin_Data_BeforeShowRow @4-54C34B28
_________________
Girish Baraskar
Web Designer/Developer
http://www.agnisdesigners.com
http://www.eindianpaintings.com
http://www.realestatekolhapur.com |
