QA@IT

syntax hilightの修正

5599
本文
 
 ---
 <更新>
+```vb
 Dim db As New TestDataContext
 Dim sql = (From p In db.TEST Where p.TestID = strID Select p)
 
 For Each a In sql
- a.TestName = strName
- a.TestCompany = strCompany
+  a.TestName = strName
+  a.TestCompany = strCompany
 Next
 
 db.SubmitChanges()
+```
 
 ---
 <削除>
+```vb
 Dim db As New TestDataContext
 Dim sql = (From p In db.TEST Where p.TestID = strID Select p)
 
 For Each a In sql
- db.TEST.DeleteOnSubmit(a)
+  db.TEST.DeleteOnSubmit(a)
 Next
 
 db.SubmitChanges()
-
+```
 ---
 新規レコードの挿入はどのように書けばよいのでしょうか。
 また、上記の更新や削除も少し不安なので、書き方的になにかアドバイス頂けますでしょうか。