求助：在一个表格中，点击修改标记按钮后，该单元格的字体颜色变为红色，表、行、列、颜色信息保存到表B中，那么单元格颜色信息怎么保存？
修订标记按钮代码：
If Functions.Execute("ShouQuan","设置","词典") Then
Dim t As String = CurrentTable.Name
Dim r As String = CurrentTable.Current("_Identify")
Dim c As String = CurrentTable.Cols(CurrentTable.ColSel).Name
Dim filter As String = "表 = '" & t & "' and 行 = '" & r & "' and 列 = '" & c & "'"
Dim fdr As DataRow = DataTables("表B").Find(filter)
If fdr Is Nothing Then
fdr = DataTables("表B").AddNew
fdr("表") = t
fdr("行") = r
fdr("列") = c
End If
fdr("颜色") = Color.red.ToArgb
Tables("人员编制及到位人员").save()
Else
msgbox("权限不足!")
End If
单元格颜色怎么设置颜色？保存到表B中？
加好友 
发短信
Post By：2017/11/13 20:52:00 [显示全部帖子]
