Select Case e.DataCol.name
Case "客户信息_客户名称"
If e.NewValue > "" Then
Dim dr As DataRow = DataTables("客户管理系统").find("客户信息_客户名称 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
dr("客户信息_客户分类") = "签约客户"
Else
MessageBox.Show("请先到客户管理系统添加客户信息!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow.Delete()
e.Form.Controls("SplitContainer1").visible = False
End If
End If
End Select
比较合理的用法应该是做个下拉窗口选择客户名称