主题：[求助][讨论]网页上日期引用

老师你好！订单明细表有一列“制单人”保存订单明细时 怎样把当前用户 保存到“制单人"中

If valid Then '如果提交了订单明细数据
    Dim sr As DataRow
    If e.PostValues.ContainsKey("DetailID") Then '如果传递了订单明细主键
        sr = DataTables("订单明细").SQLFind("[_Identify]=" & e.PostValues("DetailID"))
        If sr Is Nothing  Then  '多用户环境,必须考虑其他用户删除此明细的可能,避免程序报错
            Return ""
        End If
    Else
        sr = DataTables("订单明细").SQLAddNew() '增加一个订单明细
        sr("订单编号") = dr("订单编号")
    End If
    For Each nm As String  In nms
        sr(nm) = e.PostValues(nm)
    Next
    sr.Save()  '必须保存,而且必须在最后保存,因为用SQLAddNew增加的行,一旦保存,就不能再引用此行
End If

代码怎么写，谢谢