以下是引用Bin在2014-9-4 10:45:00的发言：
e.DataRow("新负责人邮箱") = e.NewValue
在技术支持信息表，我增加了一列“分组”。通过“分组”的下拉选择来决定各用户属于哪个组。
请问一下代码有错吗？运行好像报错。
If e.DataCol.Name = "新负责人邮箱" Then
If e.NewValue Is Nothing Then
e.DataRow("Type") = 2
Else
If e.NewValue IsNot Nothing
e.DataRow("config") = chr(11) & "PassWord" & chr(11) & "nLQ+3vT/k74Ou6oIlnzGA==" & chr(11) & "Type" & chr(11) & "99"
e.DataRow("分组") = ""
End If
End If
End If
If e.DataCol.Name = "新负责人邮箱" Then
If e.NewValue Is Nothing Then
e.DataRow("新负责人邮箱") = Nothing
Else
e.DataRow("新负责人邮箱") = e.NewValue
MessageBox.show("请新增新负责人邮箱账户","提醒账号管理人员",MessageBoxButtons.OK,MessageBoxIcon.Question)
End If
End If
If e.DataCol.Name = "分组" Then
If e.NewValue Is Nothing Then
e.DataRow("分组") = Nothing
Else
e.DataRow("分组") = e.DataRow("'" & e.NewValue & "'")
If e.DataRow("新负责人邮箱") = Nothing Then
e.DataRow("config") = "Group" & chr(11) & "e.DataRow("分组")" & chr(11) & "PassWord" & chr(11) & "nLQ+b3vT/k74Ou6oIlnzGA==" & chr(11) & "Type" & chr(11) & "2"
Else
e.DataRow("config") = "Group" & chr(11) & "e.DataRow("分组")" & chr(11) & "PassWord" & chr(11) & "nLQ+3vT/k74Ou6oIlnzGA==" & chr(11) & "Type" & chr(11) & "99"
End If
End If
End If
此主题相关图片如下：错误.png
[此贴子已经被作者于2014-9-4 11:34:36编辑过]
加好友 
发短信
Post By：2014/9/4 10:41:00 [只看该作者]
