标题：[已解决]应该怎么写和当前行相同的上一个内容

1楼

ymjr2011 发表于：2011/12/15 10:09:00

详见附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:返回_1215.zip

[此贴子已经被作者于2011-12-15 12:04:54编辑过]

2楼

ymjr2011 发表于：2011/12/15 10:24:00

沉太快了

3楼

ymjr2011 发表于：2011/12/15 11:07:00

狐爹，帮下，急呀

4楼

ymjr2011 发表于：2011/12/15 11:42:00

5楼

狐狸爸爸 发表于：2011/12/15 11:47:00

CurrentChanged事件：

If Forms("窗口1").Opened And e.Table.Current IsNot Nothing Then
    Dim tx As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
    Dim dr As DataRow
    dr = DataTables("表A").Find("第一列 = '" & e.Table.Current("第一列") & "' And [_identify] < " & e.Table.current("_Identify"),"[_Identify] Desc")
    If dr IsNot Nothing Then
        Forms("窗口1").Controls("TextBox1").value = dr("第二列")
    End If
End If

6楼

ymjr2011 发表于：2011/12/15 12:05:00

太牛了，汗。结单~~

共6 条记录, 每页显示 10 条, 页签: [1]