Top What's New Develop Technic Contact
ƒƒ“ƒ|ƒCƒ“ƒg

[VB]

DataGridƒRƒ“ƒgƒ[ƒ‹‚ŁAƒf[ƒ^‚̍XV‚ðŠm’è‚·‚é

[“®ìŠÂ‹«]

Microsoft Windows 2000 Server
Microsoft Vusual Basic 6.0

[ŠT—v]

DataGridƒRƒ“ƒgƒ[ƒ‹‚Ńf[ƒ^ƒx[ƒX‚ƘAŒ‹‚µAƒOƒŠƒbƒhã‚Ńf[ƒ^‚ðXV‚·‚éÛAƒJ[ƒ\ƒ‹‚ð•Ê‚̍s‚Ɉڂ³‚È‚¢‚ƍXV‚ªŠm’肳‚ê‚Ü‚¹‚ñB‚±‚ê‚ð‰ñ”ð‚·‚éˆ×‚ɁAƒJ[ƒ\ƒ‹ˆÚ“®‚ð‹­§“I‚ɍs‚¤ˆ—‚Å‚·B

[Žè‡]

XV‚ðŠm’肵‚½‚¢ƒCƒxƒ“ƒgƒvƒƒV[ƒWƒƒ‚ɉº‹L‚̃R[ƒh‚ð‹Lq‚µ‚Ä‚­‚¾‚³‚¢B

Dim l_index As Integer

'Œ»ÝƒAƒNƒeƒBƒu‚ȍs”ԍ†‚ðŽæ“¾
l_index = Me.DataGrid1.Row

's”ԍ†‚ª0‚Å‚ ‚ê‚΁AŽŸ‚̍s‚ɃJ[ƒ\ƒ‹‚ðˆÚ“®‚³‚¹A
'‚»‚¤‚Å‚È‚¯‚ê‚΁A0”ԖڂɈړ®‚³‚¹‚éB
If l_index = 0 Then
	Me.DataGrid1.Row = l_index + 1
Else
	Me.DataGrid1.Row = 0
End If