Dim db = HySGqGl.DataBaseFactory.CreateDatabase("db") '
MYSQGGL执行可以查询到数据
Dim SqGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] ='未审核') " & _
'"b.关系ID = ? And (a.日期 BETWEEN DATE_SUB(NOW(), INTERVAL 2 MONTH) AND NOW() );" ''
'Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGqGl.ParameterPair.GetPair("b.关系ID", _用户ID)).Tables(0)'
Dim t2 As Table = e.Form.Controls("Table1").Table
SQGGL2008，执行显示空白， 后台有数据，查不到数据，如何解决？
Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] ='未审核') " & _
"b.关系ID =@关系ID And (a.日期 BETWEEN DATEADD(MONTH, -2, GETDATE()) AND GETDATE());" '
Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGGql.ParameterPair.GetPair("@关系ID ", _用户ID)).Tables(0) '
Dim t2 As Table = e.Form.Controls("Table1").Table
e.Form.Controls("Table1").Table.DataSource = dt2
Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _
"Inner Join 用户表 as b " & _
"On (a.用户ID = b.用户ID) " & _
"Where (b.[关系ID] = @关系ID OR b.[关系ID] IS NULL) " & _
"And (a.[审核] ='未审核') " & _
"b.关系ID =@关系ID And (a.日期 BETWEEN DATEADD(MONTH, -2, GETDATE()) AND GETDATE());" '
Dim dt2 As System.Data.DataTable = db.ExecuteDataSet(SqGGl2, HySGGql.ParameterPair.GetPair("@关系ID ", _用户ID)).Tables(0) '
e.Form.Controls("Table1").Table.DataSource = dt2
还是查不到数据？ |
[此贴子已经被作者于2025/3/27 14:34:13编辑过]
Dim SqGGl2 = "SeleGGct a.*,b.关系ID From 表A as a " & _ "Inner Join 用户表 as b " & _ "On (a.用户ID = b.用户ID) " & _ "Where (b.[关系ID] = " & _关系ID& " OR b.[关系ID] IS NULL) " & _ |
Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sql2).Tables(0)
'Dim t2 As Table = e.Form.Controls("Table1").Table
字符拼接，是可以查到，可带参数，就是不行，这如何解决？是狐表不能带参数？
" & _关系ID& "是全局变量
[此贴子已经被作者于2025/3/27 15:01:46编辑过]
窗口打开后事件
Dim DXID As Integer = _用户ID
Dim dr As DataRow
If dr("用户ID") = DUID Then
查询一
Else
查询二
End If
报错
未将对象引用设置到对象的实例。