以文本方式查看主题

-  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=107215)
--  作者：飞飞
--  发布时间：2017/9/23 15:46:00
--  传递主键
怎么直接单击表格传值呢？


[此贴子已经被作者于2017/10/8 15:47:12编辑过]
--  作者：有点蓝
--  发布时间：2017/9/23 15:59:00
--  
比如

Dim wb As New WeUI
With wb.AddTable("","Table1")
    Dim nms() As String = {"产品","客户","数量","单价","日期"}
    .Head.AddRow(nms)
    For Each r As DataRow In DataTables("订单").DataRows 
        With .Body.AddRow(r("产品"),r("客户"),r("数量"))
            .Attribute = "onclick=""alert( \'主键:\'+ table1.primarykey)"""
            .Primarykey = r("_Identify") \'设置主键
            .AddCell(Format(r("单价"),"#0.00"))
            .AddCell(Format(r("日期"),"MM月dd日"))
        End With
    Next
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2017/9/23 15:59:50编辑过]
--  作者：飞飞
--  发布时间：2017/9/23 16:06:00
--  
以下是引用有点蓝在2017/9/23 15:59:00的发言：
比如

Dim wb As New WeUI
With wb.AddTable("","Table1")
    Dim nms() As String = {"产品","客户","数量","单价","日期"}
    .Head.AddRow(nms)
    For Each r As DataRow In DataTables("订单").DataRows 
        With .Body.AddRow(r("产品"),r("客户"),r("数量"))
            .Attribute = "onclick=""alert( \'主键:\'+ table1.primarykey)"""
            .Primarykey = r("_Identify") \'设置主键
            .AddCell(Format(r("单价"),"#0.00"))
            .AddCell(Format(r("日期"),"MM月dd日"))
        End With
    Next
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2017/9/23 15:59:50编辑过]

谢谢！