在表中增加一列“序号”列，当部门列输入内容后“序号”列自动填入指定内容。如果"部门"列的值为 "销售部" ，则“序号”列自动填充为“1”；如果"部门"列的值为 "生产部" ，则“序号”列自动填充为“2”；如果"部门"列的值为 "服务部" ，则“序号”列自动填充为“3”；如果"部门"列的值为 "联络部" ，则“序号”列自动填充为“4”。 但设置代码后发现，仅有在“部门”列输入“销售部”时，“序号”列才可自动填充指定内容，输入其他部时“序号”列均无变化。不知是代码还是设置问题，请大师帮忙看看。 代码如下：
在表的DataColChanged事件输入代码如下：
Select Case e.DataCol.Name
Case "部门"
If e.DataRow("部门") = "销售部"
e.DataRow("序号") = "1"
End If
Case "部门"
If e.DataRow("部门") = "生产部"
e.DataRow("序号") = "2"
End If
Case "部门"
If e.DataRow("部门") = "服务部"
e.DataRow("序号") = "3"
End If
Case "部门"
If e.DataRow("部门") = "联络部"
e.DataRow("序号") = "4"
End If
End Select
在AfterOpenProject事件输入代码如下：
DataTables("表A").DataCols("部门").RaiseDataColChanged()
加好友 
发短信
Post By：2021/6/26 1:15:00 [显示全部帖子]
