主题：角色列单元格内容定义成权限列单元格内容，有图请教

这个意思？

Dim dr As DataRow
dr = DataTables("xxx").find("角色='" & 角色的变量 & "' And 权限 Like '*可录入*'")
If dr Is Nothing Then
    msgbox("你们有权限可以录入")
Else
    Tables("xxx").addnew
End If