- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [已解决]应该怎么写和当前行相同的上一个内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15181)
-- 发布时间：2011/12/15 10:09:00
-- [已解决]应该怎么写和当前行相同的上一个内容
详见附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:返回_1215.zip |
[此贴子已经被作者于2011-12-15 12:04:54编辑过]
-- 发布时间：2011/12/15 10:24:00
--
沉太快了
-- 发布时间：2011/12/15 11:07:00
--
狐爹，帮下，急呀
-- 发布时间：2011/12/15 11:42:00
--
-- 发布时间：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
-- 发布时间：2011/12/15 12:05:00
--
太牛了，汗。结单~~