From 43301481938dc775f782a0fc089b9651c1ea9f03 Mon Sep 17 00:00:00 2001
From: 28810 <28810@YEXIANGQIN>
Date: Sat, 21 Dec 2019 21:32:45 +0800
Subject: [PATCH] =?UTF-8?q?-=20=E5=85=BC=E5=AE=B9=20Vb.Net=20=E6=97=A0?=
 =?UTF-8?q?=E6=B3=95=E4=BD=BF=E7=94=A8=20int=3F=20=E7=B1=BB=E5=9E=8B=20=3D?=
 =?UTF-8?q?=20=E7=AD=89=E5=8F=B7=E8=A1=A8=E8=BE=BE=E5=BC=8F=E8=A7=A3?=
 =?UTF-8?q?=E6=9E=90=EF=BC=9B#140?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 FreeSql.Tests.VB/UnitTest1.vb        | 5 +++++
 FreeSql/Internal/CommonExpression.cs | 1 +
 2 files changed, 6 insertions(+)

diff --git a/FreeSql.Tests.VB/UnitTest1.vb b/FreeSql.Tests.VB/UnitTest1.vb
index 07d82b23..84ab482a 100644
--- a/FreeSql.Tests.VB/UnitTest1.vb
+++ b/FreeSql.Tests.VB/UnitTest1.vb
@@ -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
diff --git a/FreeSql/Internal/CommonExpression.cs b/FreeSql/Internal/CommonExpression.cs
index e715f4e4..ab2373ff 100644
--- a/FreeSql/Internal/CommonExpression.cs
+++ b/FreeSql/Internal/CommonExpression.cs
@@ -559,6 +559,7 @@ namespace FreeSql.Internal
                 case ExpressionType.Lambda: return ExpressionLambdaToSql((exp as LambdaExpression)?.Body, tsc);
                 case ExpressionType.TypeAs:
                 case ExpressionType.Convert:
+                case ExpressionType.ConvertChecked:
                     //var othercExp = ExpressionLambdaToSqlOther(exp, tsc);
                     //if (string.IsNullOrEmpty(othercExp) == false) return othercExp;
                     return ExpressionLambdaToSql((exp as UnaryExpression)?.Operand, tsc);