我的欄位是由使用者輸入後,暫存到grid中,在按下儲存後,會將grid中的資料,變成資料表的欄位,但欄位不能有!#@$等符號,所以
我寫了on error goto R_error 來顯示訊息,但發生了一個問題,就
是在我把error的地方,改成正確的,按儲存之後,error訊息仍一直出現,導致我的程式無法run下去,為什麼呢?
On Error GoTo R_error
If rs.EOF = True Then
   sql = "CREATE TABLE " & Label_rnum.Caption & " ("
   sql = sql & "number int primary key,"
         
For QuestIndex = 0 To Text_questions - 1
  sql = sql & "" & MSFlexGrid2.TextMatrix(QuestIndex, 0) & " varchar(20),"
  Next
   sql = sql & ")"
   cn.Execute sql
   MsgBox "恭喜建立資料表!"
   rs.MoveFirst
   MSFlexGrid2.Clear
  End If

R_error:
MsgBox Error$ & "結果欄位不可有空白,亦不可有!@#$%^...等符號", vbCritical, "create_rtable Err [" & Err.Number & "]"
    
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(5) 人氣()