以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  编号问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188033)
--  作者：lin98
--  发布时间：2023/8/28 16:21:00
--  编号问题
新增

Dim r As Row = Tables("登记主表").addnew
r("制单日期") = Date.Today()   

Static Index As Integer = 99999
r("登记单号") = Format(Date.Today(),"yyMM") & "-" & Index
Index = Index - 1


保存
Dim dr As DataRow = Tables("登记主表").current.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then
    Return
ElseIf dr.IsNull("制单日期") Then
    e.Cancel = True
    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = "DDDH-" & "" & Format(dr("制单日期"), "yyyyMM")
End If
Dim cmd1 As New SQ-LCommand
Dim cmd2 As New SQ-LCommand
Dim Key As Integer
cmd1.C \'设置数据源名称
cmd2.C
cmd1.commandText = "Selec-t   Count(*) From [编号] Where [前缀] = \'" & pf & "\'"
If cmd1.ExecuteScalar = 0 Then
    cmd1.commandtext = "Inse-rt Into 编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Selec-t [顺序号] From [编号] Where [前缀] = \'" & pf & "\'"
Do
    Key = cmd1.ExecuteScalar()
    cmd2.commandText = "Up-date [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = \'" & pf & "\'"
    If cmd2.ExecuteNonQuery() > 0 Then
        Exit Do
    End If
Loop
dr("登记单号") = pf & "-" & Format(Key, "0000") \'流水号的设计)
Dim r As Row = Tables("登记主表").current
r("保存状态") = True
DataTables("登记主表").Save()
DataTables("登记明细").Save()


明细表-DataColChanged

If e.DataCol.Name = "登记单号" Then \'
    If e.DataRow.IsNull("订单登记单号") Then \'
        e.DataRow("订单单号") = Nothing \'
    Else
        \'
        Dim dr2 As DataRow
        dr2 = DataTables("登记主表").Find("[登记单号] = \'" & e.NewValue & "\'")
    e.DataRow("订单单号") = dr2("登记单号")
        
    End If
End If

需求：如果明细表的订单单号已录入数据，就是录入的数据保存，否则，明细表的订单单号=主表的登记单号，就是说明细的订单单号没录入数据、为空时，从主表取值，明细表的订单单号=主表的登记单号

执行上面代码，报错，如何解决？

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：表，登记明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2023/8/28 16:42:00
--  
主表和明细表通过什么列进行关联对应的？
--  作者：lin98
--  发布时间：2023/8/28 18:28:00
--  
主表和明细表通过登记单号列进行关联对应，是用模拟关联
--  作者：有点蓝
--  发布时间：2023/8/28 20:00:00
--  
既然通过登记单号列进行关联，那么明细表的登记单号也就等于是主表的登记单号，那么直接取明细表的登记单号不就行了，何必再去主表查？
--  作者：lin98
--  发布时间：2023/8/28 21:46:00
--  
实际业务中，有一部分别人给的订单单号，有一部是没给订单单号，

如果别人给的订单单号，就手动录入订单单号，如果别人没给的订单单号，就用内定的登记单号，避免空
--  作者：有点蓝
--  发布时间：2023/8/28 21:55:00
--  
那就直接取明细表当前行的登记单号呀

If e.DataCol.Name = "登记单号" Then \'
    If e.DataRow.IsNull("订单登记单号") Then \'
    e.DataRow("订单单号") = e.DataRow("登记单号")
        
    End If
End If