主题：代码（3楼已作示范文件）C版请进

Dim gbr As Row = CurrentTable.current    '零部件明细表
Dim ger As DataRow
ger = DataTables("订单").Find("机号_GE296 = " & gbr("可装机号_GE296"))
Dim bkr As DataRow
bkr = DataTables("订单").Find("机号_BKS = " & gbr("可装机号_BKS"))
If gbr.isnull("可装机号_GE296") = False And gbr.isnull("可装机号_BKS") = False
    If ger("订单序号") > bkr("订单序号")
        gbr("订单序号") = ger("订单序号")
    Else
        gbr("订单序号") = bkr("订单序号")
    End If
Elseif gbr.isnull("可装机号_GE296") And gbr.isnull("可装机号_BKS") = False
    gbr("订单序号") = bkr("订单序号")
Elseif gbr.isnull("可装机号_GE296")  = False And gbr.isnull("可装机号_BKS")
    gbr("订单序号") = ger("订单序号")
Elseif gbr.isnull("可装机号_GE296") And gbr.isnull("可装机号_BKS")
gbr("订单序号") = Nothing           '刚补上的
End If