以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新手求如何实现同一列中的值和上一行相同而不用输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17801)

--  作者:newbie
--  发布时间:2012/3/25 12:20:00
--  新手求如何实现同一列中的值和上一行相同而不用输入

新手求如何实现同一列中的值和上一行相同而不用手动输入

翻遍使用指南

都不知道怎么解决


--  作者:san20520
--  发布时间:2012/3/25 14:12:00
--  
都和上一行的值相同,就是固定值咯?! 应该有条件的吧?
--  作者:狐哥
--  发布时间:2012/3/25 15:03:00
--  

Dim ta As Table = Tables("xxx")

    If ta.rows.count = 0 Then

        ta.addnew()

    Else

        Dim ColNames As String() = {"列1","列2"}

        Dim dr As Row = ta.Rows(ta.rows.count-1)

        ta.Redraw = False

        dim drr as row = ta.addnew()

        For Each ColName As String in ColNames

            drr(ColName) = dr(ColName)

        Next

        ta.redraw = true

    end if


试下是否可以?


--  作者:小猪鑫鑫
--  发布时间:2012/3/25 20:03:00
--  
ctrl+d
--  作者:程兴刚
--  发布时间:2012/3/25 20:14:00
--  

DataRowAdding

增加一行时执行,此时新增行(DataRow)已经创建,但并未真正增加到DataTable中,通常在此处对新增行进行默认值的设置。

 

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
      Return
\'那么返回
End
If
Dim
dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
e.DataRow("产品名称") = dr("产品名称")  \'默认新增行产品名称为上一行产品名称.


--  作者:zhangzhijun88
--  发布时间:2012/4/4 17:01:00
--  
谢谢,第二项好些,我试过