Question

我有这样的问题

 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

它显示＆＃34;类型不匹配＆＃34;，特别是在此代码的部分：

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

你能告诉我什么是错的吗？非常感谢

Answer 1

Grd_StatUjian.TextMatrix返回字符串，您将整数与它进行比较。请参阅link。不要忘记添加带非数字数据的字符串检查。

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

类型不匹配VSFlexGrid VB6

1 个答案: