主页跳转问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 主页跳转问题

共有1303人关注过本帖树形打印复制链接主题：主页跳转问题

有点蓝

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/28 19:25:00 [只看该作者]

【foxtable web server has started】说明代码没有调用e.WriteString返回页面内容

ycs5801

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/1/30 16:16:00 [只看该作者]

Dim dr As DataRow

If e.GetValues.ContainsKey("name") = False Then '如果没有传递订单编号,则新增与一个订单

dr = DataTables("资料").AddNew()

...

dr("_Identify")

...

这种生成的dr("_Identify")为什么不准确呢？

ycs5801

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/1/30 16:21:00 [只看该作者]

jo("url") = "cbjg.700.xyz/zdzs.htm?name=" & CStr(dr("_Identify")) '打开折叠信息页面，传递主键

就是这个主键，有时候就生成一个很大的主键，我查了sql server数据库中，根本没有这个主键，是不是和 dr = DataTables("资料").AddNew() 这种生成方式有关？这种生成的主键不准？

有点蓝

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/30 16:28:00 [只看该作者]

"_Identify"要保存后才可以获取正确的值，新增行"_Identify"没保存前都是临时的值

ycs5801

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/1/30 20:30:00 [只看该作者]

Dim cmd As new SQLCo mmand
cmd.Connecti onName = "orders"
Dim ckd As DataTable
Dim ckmx As DataTable
cmd.CommandText = "Sel ect * From {出库} Where [出库单编号] Is null" '生成一个空出库表
ckd = cmd.ExecuteReader(True) '记得将参数设置为True
Dim cr As DataRow = ckd.AddNew() '增加出库单
cr("出库日期") = Date.today
cr("库管员") = "张三"
ckd.Save() '必须提前保存出库单,以获取自动生成的出库单编号.

如果换成这种方式，是不是最后也需要ckd.save(),才可以。