Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:ReplaceFor有时替换不成功

1楼
狐表(小白) 发表于:2024/5/11 17:37:00
请老师指点一下:ReplaceFor有时替换不成功,tabel1新增行的编号列设置的是自动编号,订单编号、状态、扫描状态和派工员工都赋值成功了,就是table4的编号初始值是空,没有替换成功成新的值,什么原因?

Button的Click事件代码如下:

    '生成派工单
    Dim cr As DataRow
    Dim g As New GroupTableBuilder("自动分配统计", DataTables(eF orm.Name & "_Table4"))
    g.Groups.AddDef("派工员工")
    g.Groups.AddDef("订单编号")
    Dim dt As DataTable = g.Build(True)
    For Each dr As DataRow In dt.DataRows
        cr = DataTables(eF orm.Name & "_Table1").AddNew
        cr.save
        DataTables(eF orm.Name & "_Table4").ReplaceFor("编号", cr("编号"), "派工员工='" & dr("派工员工") & "' and 订单编号='" & dr("订单编号") & "'")
        cr("订单编号") = dr("订单编号")
        cr("状态") = "未完成"
        cr("扫描_状态") = "未扫描"
        cr("派工员工") = dr("派工员工")
    Next
DataTables(eF orm.Name & "_Table4").save 
DataTables(eF orm.Name & "_Table1").save
DataTables(eF orm.Name & "_Table4").RemoveFor("编号 Is Not Null")  '移除已派工订单
2楼
有点蓝 发表于:2024/5/11 17:40:00
cr是新增的行,新增的行都是没有值的啊,cr("编号")数据是怎么来的?

3楼
狐表(小白) 发表于:2024/5/14 14:04:00
设置的自动编号
4楼
有点蓝 发表于:2024/5/14 14:17:00
怎么设置的?
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.