If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
dr = DataTables("yhtb").DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName '
e.Form.Close
Else
Messagebox.show("密码错误!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
代码执行,报错下面提示,如何解决?
详细错误信息:
无法将类型为“System.Data.DataTable”的对象强制转换为类型“Foxtable.DataTable”。
要写全命名空间,因为不是Foxtable的datarow和datatable
dim dr as System.Data.datarow……
dim dt as System.Data.datatable = db.executedataset(sql).tables(0)
此主题相关图片如下:sql报错-1.jpg

dim dr as System.Data.datarow
Dim dt As System.Data.DataTable = db.executedataset(sqKl).Tables(0)
If dt.System.DataRows.Count = 0 Then
'If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
改后,蓝代码报错
https://learn.microsoft.com/zh-cn/dotnet/api/system.data.datatable.rows?view=netframework-4.0
If dt.Rows.Count = 0 Then