If e.DataRow("客户等级") = "赢单客户" Then
Dim Val As Date = Date.Today
If InputValue(Val, "小艺要求", "请输入签约日期:") Then
e.DataRow("签约日期") = Val
End If
Dim Val1 As String
If InputValue(Val1, "小艺要求", "请输入签约人姓名:") Then
e.DataRow("签约人") = Val1
End If
e.DataRow.Locked = True '那么锁定此行
e.DataRow("订单ID") = "GDID" & Format(Date.Now,"yyMMdd-HHmmss")
End If
这个输入时会被几次循环,如何简化呢 求助