0
If EditData = False Then
'Simpan data
If Grd_StatUjian.TextMatrix(Grd_StatUjian.RowSel, 2) > 30 Then
MsgBox "Sesi Tersebut Sudah Penuh... Silahkan Cari Sesi Lainnya...!", vbInformation, "Informasi"
Else
cn.Execute "INSERT INTO ujian_mhs VALUES ('" & 0 & "','" & TBox(0).Text & "','" & cb_sesi.Text & "','" & cb_hari.Text & "','" & TBox(3).Text & "','" & TBox(5).Text & "','" & cb_ujian.Text & "','" & frmBack.lbta.Caption & "')"
End If
Else
'Update data
cn.Execute "UPDATE ujian_mhs SET sesi_ujian='" & cb_sesi.Text & "',hari_ujian='" & cb_hari.Text & "',kd_instruktur='" & TBox(5).Text & "'" & _
"WHERE NPM='" & TBox(0).Text & "'"
End If
出現問題,將會顯示「類型不匹配」,尤其是在這個代碼的一部分:
If Grd_StatUjian.TextMatrix(Grd_StatUjian.RowSel, 2) > 30 Then
你能告訴我有什麼不對? 非常感謝