1: Private Sub BTN_NEW_Click() 2: ' [新規]ボタンが押されたときの処理 3: FormEditSlipDetail.NewSlipDetail SlipID 4: FormEditSlipDetail.Show 1 5: 6: ' データグリッドの内容を更新する 7: RefreshData 8: End Sub