tk/FreeSql
1
0
Fork 0
mirror of https://github.com/nsnail/FreeSql.git synced 2025-06-19 12:28:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

- 兼容 Vb.Net 无法使用 int? 类型 = 等号表达式解析；#140

Browse Source
This commit is contained in:
28810
2019-12-21 21:32:45 +08:00
parent 1b1f5c12ae
commit 4330148193
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
FreeSql.Tests.VB/UnitTest1.vb
View File

@ -10,6 +10,10 @@ Namespace FreeSql.Tests.VB
Dim id As Integer = 100
Dim List1 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Id = 100).ToList()
Dim List2 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Id = id).ToList()
Dim List11 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.IdNullable = 100).ToList()
Dim List22 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.IdNullable = id).ToList()
Dim idNullable As Integer? = 100
Dim List222 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.IdNullable = idNullable).ToList()
Dim List3 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title = "xxx").ToList()
Dim title As String = "xxx"
Dim List4 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title = title).ToList()
@ -43,6 +47,7 @@ Class Testvb
Property Id As Integer
Property Title As String
Property IsDeleted As Boolean
Property IdNullable As Integer?
Property Testvb2s As List(Of Testvb2)
End Class