以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  想增加一行时复制上行摘要的内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176528)
--  作者：zhuxinhui
--  发布时间：2022/4/16 11:09:00
--  想增加一行时复制上行摘要的内容
想增加一行时复制上行摘要的内容
Dim h = Tables("凭证").Rows.Count
If h = 0 Then
    Dim dr As DataRow = DataTables("凭证明细").AddNew()
    dr("凭证编码") = e.Form.Controls("TextBox1").text
    dr("编制日期") = e.Form.Controls("DateTimePicker1").text
    dr("凭证类型") = e.Form.Controls("ComboBox1").text
Else
    Dim dr As DataRow = DataTables("凭证明细").AddNew()
    dr("凭证编码") = e.Form.Controls("TextBox1").text
    dr("编制日期") = e.Form.Controls("DateTimePicker1").text
    dr("凭证类型") = e.Form.Controls("ComboBox1").text
    dr("凭证摘要") = Tables("凭证").Rows(h)("凭证摘要")
End If
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20220416110836.png
图片点击可在新窗口打开查看

这个H要怎样统计，或是还有什么方法
--  作者：有点蓝
--  发布时间：2022/4/16 11:27:00
--  
"凭证摘要"是哪个表的列？
--  作者：zhuxinhui
--  发布时间：2022/4/16 11:30:00
--  
凭证明细，我改过来还是不行
--  作者：有点蓝
--  发布时间：2022/4/16 11:45:00
--  
上一行是指当前行的上一行。还是新增行的上一行？
--  作者：zhuxinhui
--  发布时间：2022/4/16 11:46:00
--  
新增行的上一行
--  作者：zhuxinhui
--  发布时间：2022/4/16 11:47:00
--  
Dim dr As DataRow = DataTables("凭证明细").AddNew()
dr("凭证编码") = e.Form.Controls("TextBox1").text
dr("编制日期") = e.Form.Controls("DateTimePicker1").text
dr("凭证类型") = e.Form.Controls("ComboBox1").text
Dim h = Tables("凭证明细").Rows.Count
Dim i = h-1
MessageBox.Show(h,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
MessageBox.Show(h-1,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
MessageBox.Show(Tables("凭证明细").Rows(i)("凭证摘要").value,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)


If h > 1 Then
    Tables("凭证明细").Rows(h)("凭证摘要").value = Tables("凭证明细").Rows(i)("凭证摘要").value
Else
    dr("凭证摘要") = Nothing
End If
这个提示不出内容？？？？？MessageBox.Show(Tables("凭证明细").Rows(i)("凭证摘要").value,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)，是什么回事
--  作者：有点蓝
--  发布时间：2022/4/16 11:47:00
--  
Else
    Dim dr As Row = Tables("凭证明细").AddNew()
    dr("凭证编码") = e.Form.Controls("TextBox1").text
    dr("编制日期") = e.Form.Controls("DateTimePicker1").text
    dr("凭证类型") = e.Form.Controls("ComboBox1").text
    dr("凭证摘要") = Tables("凭证明细").Rows(dr.index - 1)("凭证摘要")
End If
--  作者：zhuxinhui
--  发布时间：2022/4/16 12:00:00
--  
多谢，