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编辑过]
加好友 
发短信
Post By：2018/11/5 11:51:00 [显示全部帖子]
