以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  甜老师，代码问题, 帮看一下，谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127088)
--  作者：cyrollin
--  发布时间：2018/11/5 11:51:00
--  甜老师，代码问题, 帮看一下，谢谢
If Forms("窗口1").Opened Then
    
    Dim r As Row = e.Table.Current
    Dim f As String = "编号 =" & r("编号")
     Dim drs As List(Of DataRow) = e.Table.DataTable.SQLSelect("Select top 4 [_Identify] Flom {表A} where " & f & "And [日期] < #" & r("日期") & "# order by 日期 Desc","acc_test", True )
  
     Forms("窗口1").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] Flom {表A} where " & f & "And [日期] < #" & r("日期") & "# order by 日期 Desc","acc_test", True )
 
     If drs.count = 1 Then
     forms("窗口1").controls("table1").Table.addnew(3)
     End If 

     If drs.count = 2 Then
     forms("窗口1").controls("table1").Table.addnew(2)
     End If 

...
...

\'\'\'       当查找的数据为1条时，新增加3行空白行。 当查找到2条数据时， 新增加2行空白行。

但是没实现，又没有错误提示， 代码哪里错了呢？
[此贴子已经被作者于2018/11/5 11:53:36编辑过]
--  作者：有点甜
--  发布时间：2018/11/5 12:21:00
--  

改成

 

Dim r As Row = e.Table.Current
Dim f As String = "编号 = \'" & r("编号") & "\'"

Forms("窗口1").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] Flom {表A} where " & f & "And [日期] < #" & r("日期") & "# order by 日期 Desc","acc_test", True )
Dim drs = Forms("窗口1").controls("table1").Table.DataTable.Select("")
If drs.count = 1 Then
    forms("窗口1").controls("table1").Table.addnew(3)
End If

If drs.count = 2 Then
    forms("窗口1").controls("table1").Table.addnew(2)
End If