- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 系统错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66611)
-- 发布时间：2015/4/10 13:49:00
-- 系统错误
制作了按钮
按钮代码如下
Select User.Name
Case "开发者"
Tables("外购订单表").Current("审核") = Left(UserName,2)
Tables("外购订单表").Current("审核日期") = Date.Today()
Tables("外购订单表").Current.Save()
For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
r("审核")= Left(UserName,2)
Next
DataTables("外购订单明细表").Save()
Case "张敏佳"
Tables("外购订单表").Current("审核") = Left(UserName,2)
Tables("外购订单表").Current("审核日期") = Date.Today()
Tables("外购订单表").Current.Save()
For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
r("审核")= Left(UserName,2)
Next
DataTables("外购订单明细表").Save()
Case "沈萍萍","吕晓","钟英","吴芳君","贺杰"
MessageBox.show("你无审核权限!")
End Select
Case "开发者"
Tables("外购订单表").Current("审核") = Left(UserName,2)
Tables("外购订单表").Current("审核日期") = Date.Today()
Tables("外购订单表").Current.Save()
For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
r("审核")= Left(UserName,2)
Next
DataTables("外购订单明细表").Save()
Case "张敏佳"
Tables("外购订单表").Current("审核") = Left(UserName,2)
Tables("外购订单表").Current("审核日期") = Date.Today()
Tables("外购订单表").Current.Save()
For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
r("审核")= Left(UserName,2)
Next
DataTables("外购订单明细表").Save()
Case "沈萍萍","吕晓","钟英","吴芳君","贺杰"
MessageBox.show("你无审核权限!")
End Select
每次一按按钮就出现这个提示框。
求解
-- 发布时间：2015/4/10 13:51:00
--
你没有 Tables("外购订单表") 这个表
-- 发布时间：2018/5/23 10:05:00
--
-- 发布时间：2018/5/23 10:30:00
--
以下是引用huyv523在2018/5/23 10:05:00的发言：
有问题，请发帖提问。