- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]输入特定字符，引用上一条记录数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140087)
-- 发布时间：2019/8/29 10:10:00
-- [求助]输入特定字符，引用上一条记录数据
有“记账凭证明细表”中“摘要”列
计划，输入特定字符“23”后自动引用上条记录的“摘要”列内容。
表事件DataColChanged添加以下代码：
Select e.DataCol.Name
Case "摘要"
Dim t As Table = Tables("凭证明细表")
If e.DataRow("摘要") = "23" Then
Dim i As Integer = t.Rows.Count - 1
e.DataRow("摘要") = t.Rows(i)("摘要")
End If
End Select
不执行，请老师帮帮看看，怎么处理好一些？谢谢！
此主题相关图片如下：微信截图_20190829100224.png
[此贴子已经被作者于2019/8/29 10:12:59编辑过]
-- 发布时间：2019/8/29 10:25:00
--
Select e.DataCol.Name
Case "摘要"
Dim t As Table = e.form.controls("table名称").Table
If e.DataRow("摘要") = "23" Then
Dim i As Integer = t.findrow(e.DataRow)
if i > 0 then
e.DataRow("摘要") = t.Rows(i-1)("摘要")
end if
End If
End Select
End If
End Select
-- 发布时间：2019/8/29 10:41:00
--
以下是引用有点蓝在2019/8/29 10:25:00的发言：
Select e.DataCol.Name
Case "摘要"
Dim t As Table = e.form.controls("table名称").Table
If e.DataRow("摘要") = "23" Then
Dim i As Integer = t.findrow(e.DataRow)
Select e.DataCol.Name
Case "摘要"
Dim t As Table = e.form.controls("table名称").Table
If e.DataRow("摘要") = "23" Then
Dim i As Integer = t.findrow(e.DataRow)
if i > 0 then
e.DataRow("摘要") = t.Rows(i-1)("摘要")
end if
End If
End Select
End If
End Select
出错了！
此主题相关图片如下：2.png
-- 发布时间：2019/8/29 10:51:00
--
Dim t As Table = e.form.controls("改为自己table名称").Table
-- 发布时间：2019/8/29 10:56:00
--
以下是引用有点蓝在2019/8/29 10:51:00的发言：
Dim t As Table = e.form.controls("改为自己table名称").Table
Dim t As Table = e.form.controls("改为自己table名称").Table
蓝老师，改了啊！
此主题相关图片如下：3.png
-- 发布时间：2019/8/29 11:00:00
--
Dim t As Table = e.form.controls("改为自己窗口table控件名称，不是表格名称").Table
-- 发布时间：2019/8/29 11:05:00
--
以下是引用有点蓝在2019/8/29 11:00:00的发言：
Dim t As Table = e.form.controls("改为自己窗口table控件名称，不是表格名称").Table
Dim t As Table = e.form.controls("改为自己窗口table控件名称，不是表格名称").Table
修改为：
Dim t As Table = e.form.controls("Table1").Table
还是不行！
改为
Dim t As Table = Tables("凭证明细表")
可以了？！