【论坛发不了附件吗?试了两个浏览器,点击添加附件都没反应!】
web开发,图文组合列表显示记录,每个末尾都有几个addfoot用来 增 删 改
请教:删除操作时,确认对话框之后,如何传递主键给js?
With wb.AddPanelGroup("","pg","时间段:" & FirstDay & "-" & LastDay)
For i As Integer = 0 To dt.datarows.count - 1
Dim dr As DataRow = dt.datarows(i)
Dim names() As String
names = dr("记录人").split("|")
With .Add("pn" & i,"<label style='font-size:16px;font-weight:bold;color:#565656;'>" & dr("记录名称") & "</lable>",dr("记录内容"))
.Badge= ""
.AddFoot(names(1))
.AddFoot("|" & dr("事件日期"))
.AddFoot("|详细","HRLogsListDetail.htm?recid=" & dr("记录编号"))
.AddFoot("|编辑","HRLogsAddNew.htm?rzbh=" & dr("记录编号"))
.AddFoot("<a href='#' o n c l i c k='show(""dlg1"")'>删除</a>")
End With
Next
End With
With wb.AddDialog("","dlg1", "信息提示","确定删除当前HR日志吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定").Attribute = "o n c l i c k='HRLogsdel()'"
End With
[此贴子已经被作者于2018/11/19 11:03:52编辑过]