现在点船舶信息那列可以跳转页面,但是总提示找不到船舶信息,应该是主键没有传送过来。
这是list.htm中的部分代码:
For Each r As DataRow In dt.datarows
With .Body.AddRow(r("英文船名"), r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))
.Primarykey = r("_Identify") '设置主键
Dim s As String = r("船舶信息")
If s.length > 5 Then
.AddCell(s.substring(0,5) & "...","")
Else
.AddCell(s)
End If
End With
Next
这是js中的代码:function showpage(){
location="showpage.htm?id=" + table1.primarykey
}
这是新增页面中的代码:
Dim e As RequestEventArgs = args(0)
Dim dr As DataRow = DataTables("表1").find("_Identify=" & e.getvalues("id"))
If dr IsNot Nothing
Dim wb As new WeUI
With wb.AddMsgPage("","msgpage","船舶信息",dr ("船舶信息"))
.AddButton("btn1","返回","list.htm")
End With
e.WriteString(wb.Build) '生成网页
End If
e.WriteString("没找到船舶信息")
绿色地方是这个图:
此主题相关图片如下:qq截图20210308194347.png
[此贴子已经被作者于2021/3/8 19:44:17编辑过]