- 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=55384)
-- 发布时间：2014/8/15 15:15:00
-- [求助]收支
此主题相关图片如下：收支.png
自动转换列内容
-- 发布时间：2014/8/15 15:20:00
--
DataCloChanged事件
if e.datarow.isnull(e.datacol.name)=false then
if e.datacol.name.StartsWith("支出") then
e.datarow("方向")="借"
else if e.datacol.name.StartsWith("收入") then
e.datarow("方向")="贷"
end if
end if
着色利用DrawCell
-- 发布时间：2014/8/15 15:30:00
--
此主题相关图片如下：报错.png
老师，有报错
-- 发布时间：2014/8/15 15:32:00
--
If e.DataRow.isnull(e.DataCol.name)=False Then
If e.DataCol.name.StartsWith("支出") Then
e.DataRow("方向")=true
Else If e.DataCol.name.StartsWith("收入") Then
e.DataRow("方向")=true
End If
End If
-- 发布时间：2014/8/15 16:06:00
--
不好意思老师，当输入收入列内容后就禁止输入支出列内容
当输入支出列内容后就禁止输入收入列内容同时锁定方向列的值
我指的是同一行
[此贴子已经被作者于2014-8-15 17:09:17编辑过]
-- 发布时间：2014/8/15 17:32:00
--
需要编写prepareEdit事件，代码如下
If e.Col.name.StartsWith("支出") Then
For Each c As Col In e.Table.Cols
If c.name.Startswith("收入") AndAlso e.Row.IsNull(c.Name) = False Then
e.cancel = True
Exit For
End If
Next
Else If e.Col.name.StartsWith("收入") Then
For Each c As Col In e.Table.Cols
If c.name.Startswith("支出") AndAlso e.Row.IsNull(c.Name) = False Then
e.cancel = True
Exit For
End If
Next
End If
-- 发布时间：2014/8/16 13:56:00
--
谢谢老师好了。