2016-12-17 59 views
0

我有這樣類型不匹配VSFlexGrid VB6

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 

你能告訴我有什麼不對? 非常感謝

回答

1

Grd_StatUjian.TextMatrix返回字符串,您正在比較整數與它。請參閱link。 不要忘記添加字符串與非數字數據的檢查。

If CInt(Grd_StatUjian.TextMatrix(Grd_StatUjian.RowSel, 2)) > 30 Then